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Section  1.0 
Introduction 

1.1  Program  Operations  Overview 

This  manual  furnishes  the  information  required  by  a programmer 
using  the  Minimum  Hamiltonian  AScent  TRajectory  Evaluation 
(MASTRE)  Program.  This  document  enables  the  programmer  to  either 
modify  the  program  or  convert  the  program  to  computers  other  than  the 
VAX  computer.  This  document  includes  documentation  for  each 
subroutine  or  function  based  on  providing  the  definitions  of  the  variables 
and  a source  listing.  Questions  concerning  the  equations,  techniques,  or 
input  requirements  should  be  answered  by  either  the  Engineering  or  User  s 
manuals. 

Three  appendices  are  also  included  which  provide  a listing  of  the 
Root-Sum-Square  (RSS)  program,  a listing  of  subroutine  names  and 
definitions  used  in  the  MASTRE  User  Friendly  Interface  (UFI)  Program, 
and  a listing  of  the  subroutine  names  and  definitions  used  in  the  Mass 
Properties  Program.  All  of  these  programs  were  developed  under  this 
contract.  The  RSS  Program  is  used  to  aid  in  the  performance  of  dispersion 
analyses.  Ths  RSS  program  reads  a file  generated  by  the  MASTRE 
Program,  calculates  dispersion  parameters,  and  generates  output  tables 
and  output  plot  files.  The  UFI  Program  provides  a screen  user  interface  to 
aid  the  user  in  proA/iding  input  to  the  model.  The  Mass  Properties  Program 
defines  the  mass  properties  data  for  the  MASTRE  program  through  the  use 
of  user  interface  software. 

Before  a programmer  begins  work  on  this  program  he  should 
acquire  an  understanding  of  the  general  flow  of  the  program  placing 
special  emphasis  on  the  integration  package  subroutines  DESOLV  and 
DPIR.  Whenever  these  subroutines  are  called  they  control  the  flow  of  the 
integration  process  until  termination  (which  is  caused  by  calling  the 
subroutine  RTMRK).  Because  both  forward  and  backward  integrations  are 
required  by  the  steepest  ascent  algorithm,  these  subroutines  are  the  focal 
points  of  the  program. 
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The  general  flow  of  the  MASTRE  program  consists  of  the  following 
six  primary  segments  : 

• Initiation, 

• Forward  trajectory  integration  and  evaluation, 

• Backward  trajectory  integration, 

• Partial  derivative  calculation, 

• Parameter  update  and  convergence  test,  and 

• Table  and  plot  output. 

These  six  elements  are  described  briefly  in  the  following  paragarphs.  A 
general  flow  diagram  of  the  main  program  (MASTRE)  is  shown  in  Figure 
1-1. 


1.1.1  Initiation 

The  main  program  begins  operation  by  calling  the  subroutines 
INITIAL,  MENU,  and  AINIT  to  preset  variables  and  constants  used  in  the 
program.  The  subroutine  AINIT  reads  the  input  data  in  the  Namelist 
format  which  includes  a description  of  the  vehicle,  the  type  of  vehicle  to  be 
simulated,  the  parameters  to  be  optimized,  and  the  output  required.  The 
Users  Manual  defines  the  input  parameters  required  by  the  program. 
Subroutines  INITIAL  and  MENU  provide  user  interface  options  to  control 
the  operation  of  the  program  during  execution. 

1-1-2  Forward  Trajectory  Integration  and  Evaluation 

The  forward  trajectory  integration  and  evaluation  is  performed  by 
calling  subroutines  AFORUN  and  AFORND.  Subroutine  AFORUN  defines 
the  setup  logic  for  the  forward  trajectory  and  calls  the  integration 
subroutine  DESOLV.  The  AFORND  subroutine  calculates  the  values  of  the 
constraint  errors  (the  difference  between  the  desired  and  simulated  values), 
the  payoff  value,  and  the  initial  values  of  the  backward  trajectory.  After  the 
converged  run  is  simulated,  the  AFORND  subroutine  prinbts  and  also  calls 
other  subroutines  to  print  out  parameter  summary  tables,  orbital  element 
tables,  load  indicator  tables,  and  weight  summary  tables.  The  calling  of 
subroutine  AFORUN  is  the  beginning  of  the  iteration  cycle. 
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PROGRAM  MASTRE 


AINIT 


AFORUN 

AFORND 


CONVERGENCE  ? 


TABLE  OUTPUT  ? 


Forward  Trajectory  Integration 
and  Evaluation 


Backward  Trajectory  Integration 


Partial  Derivative  Calculation 


Parameter  Update  and  Convergence 
Test 


Table  Output 


Figure  1-1  MASTRE  Program  Overview 


Backward  Trajectory  Integration 


A backward  trajectory  integration  is  simulated  from  the  terminal 
point  of  the  forward  trajectory  to  the  min-H  initialization  point  by  calling 
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subroutine  BAKRN.  During  this  time,  the  adjoint  differential  equations  are 
integrated  based  upon  interpolated  values  of  the  state  variables  stored 
during  the  forward  trajectory.  Impulse  response  functions,  which  consist 
of  the  first  and  second  partial  derivatives  of  the  state  with  respect  to  the 
attitude  angles,  are  also  evaluated  to  determine  the  effects  of  the  pitch  and 
yaw  attitude  angles  on  the  trajectory.  Subroutine  BSAVEG  is  also  called 
during  the  backward  integration  to  integrate  the  weighting  matrix  using 
the  Simpson  method. 

1.1.4  Partial  Derivative  Calculation 

The  partial  derivatives  of  the  payoff,  terminal,  and  intermediate 
constraints  with  respect  to  the  control  parameters  are  determined  by 
calling  subroutine  BADLX.  The  control  parameters  consist  of  parameters 
such  as  lift-off  weight,  first  stage  pitch  and  yaw  angles,  and  thrust  time 
segments.  The  partial  derivatives  are  defined  by  using  forward  differences, 
or  the  shooting  method,  which  involves  simulating  forward  trajectories  to 
calculate  the  changes  with  respect  to  the  payoff,  terminal,  and  intermediate 
constraints  by  varying  the  control  parameters.  The  partial  derivatives  are 
calculated  by  dividing  the  difference  between  the  perturbed  values  of  the 
constraints  and  the  nominal  values  by  the  control  parameter  variances. 

1.1.5  Parameter  Update  and  Convergence  Test 

The  final  portion  of  the  iteration  cycle  is  the  call  to  subroutine 
ANEWCH  which  controls  the  following  items: 

• Determination  of  optimization  and  restoration  step  size 
requirements; 

• Controls  parameter  update  requirements; 

• Calculates  update  requirements  for  the  control  variables  (pitch 
and  yaw  attitude  angles)  during  the  min-H  phase  of  flight; 

• Investigation  of  the  convergence  tests;  and 

• Determination  of  convergence. 

If  the  convergence  tests  are  met,  the  iteration  cycle  is  terminated 
after  the  next  forward  trajectory  is  simulated  and  evaluated.  If  the 
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convergence  tests  are  not  met,  the  program  flow  is  returned  to  forward 
trajectory  integration  and  the  iteration  cycle  is  continued. 

1.1.6  Table  and  Plot  Output 

Once  a converged  trajectory  is  obtained,  or  the  maximum  number  of 
iterations  has  been  reached,  special  output  tables  and  a plot  file  are 
produced  based  upon  the  user  request.  If  tables  are  desired,  the  subroutine 
BOPTBL  is  called  to  read  the  $INPUT2  Namelist  file  and  subroutine  BIPTBL 
is  called  to  generate  the  special  output  tables.  The  plot  file  can  be  used  by 
the  plotting  package  in  the  MASTRE  User  Interface  Program. 

1.2  Operational  Constraints 

The  best  method  of  running  the  MASTRE  Program  is  through  use  of 
a command  file  which  defines  user  options  and  the  names  of  input/output 
files.  The  design  and  construction  of  the  command  file  is  described  in  the 
MASTRE  User  Interface  documentation.  The  user,  however,  is  not  limited 
to  this  manner  of  execution  and  can  run  the  program  in  an  interactive 
fashion  by  typing  the  command  "RUN  MASTRE".  The  user  is  then 
prompted  for  inputs. 

Currently  the  MASTRE  program  is  resident  on  the  micro-VAX 
computer  system  and  utilizes  features  of  the  VAX  Fortran  compiler.  To 
convert  this  program  to  another  computer  system  these  special  features 
should  be  investigated  for  compatiblity. 

1.3  Use  of  Special  Software 

Although  the  MASTRE  Program  uses  no  special  external  software, 
the  accompanying  MASTRE  User  Interface  Program  and  the  Mass 
Properties  Program  require  the  use  of  the  Screen  Management  Guideline 
(SMG)  routines  which  are  resident  on  the  VAX  computer  system. 
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Section  2.0 

Subroutine  Descriptions 

The  following  sub-sections  give  an  alphabetic  listing  of  all 

subroutines  and  fimctions  and  provide  a brief  statement  of  the  purpose  of 

each. 

Z1  Alphabetically  Ordered  List  of  Nonsystem  Subroutine  and  Function 

Names 

Subroutine 

Name  Function 

ACNTRO  Determines  the  values  of  pitch  and  yaw  attitude  based  on 

interpolation  of  the  proper  control  table.  (Only  used 
during  the  min-H  phase). 

ACSTOP  Evaluates  the  payoflf  and  determines  the  value  of  the 

terminal  and  intermediate  equality  constraints.  Also 
evaluates  the  partial  derivatives  of  the  payoff  and 
constraints  with  respect  to  the  state. 

•ADER  Evaluates  the  time  independent  state  derivatives  during 

the  forward  integration. 

ADERI  Evaluates  the  time  dependent  state  derivatives  during 

the  forward  integration. 

AEBANK  Reads  aerodynamic  data  from  aerod3mamic  database. 

AEOSR  Stores  the  state  variables  during  the  forward  trajectory. 

AFORND  Controls  the  call  to  ACSTOP  to  determine  the  payoff 

function  and  terminal  and  intermediate  constraints, 
computes  errors  from  desired  values,  sets  up  initial 
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AFORUN 

AGEO 

AJUMP 

ALIFT 

AINIT 

AMULG 

AMULG7 

ANEWCH 

APRTN 

AQMAX 

AREAIN 


backward  integration  parameters,  and  prints  terminal 
summaries. 

Controls  the  setup  logic  for  the  forward  trajectory 
integration  and  calls  the  integration  package. 

Calculates  the  gravitational  parameters  for  the  forward 
and  backward  integration. 

Controls  storage  of  state  variables  for  1st  stage  jump 
start.  (Entry  point  in  subroutine  ATILT). 

Controls  lift-off  simulation  based  on  thrust-to-weight 
requirement.  (Entry  point  in  subroutine  ATILT). 

Reads  input  data  and  performs  initial  setup. 

Linear  interpolation  scheme  for  two  dependent 
parameters. 

Linear  interpolation  scheme  for  seven  dependent 
parameters 

Evaluates  the  optimization  and  restoration  equations  to 
determine  the  required  changes  in  the  controlling 
parameters  and  variables.  Tests  for  convergence  are 
also  made  in  this  subroutine. 

Computes  output  parameters,  prints  data,  and  writes 
output  files  for  output  tables  and  plots. 

Provides  maximum  dynamic  pressure  printout. 

Controls  user  interface  to  call  termination,  execution, 
data  input,  plot  and  table  output  files,  and  printout 
menu. 
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AROLL 

ATHREV 

ATHRO 

ATILT 

ATMOSPHERE 

AWDEV 

AXPRT 

BOPTBL 

BIPTBL 

BADLX 


Defines  parameters  and  prints  roll  maneuvers.  (Entry 
point  in  subroutine  ATILT). 

Thrust  event  control  routine  which  sets  up  vehicle 
geometry,  aerod3mamic  data,  number  of  engines,  thrust 
limits,  and  flow  rates;  and  calculates  times  for  events. 

Defines  parameters  and  prints  MPS  throttle  events. 
(Entry  point  in  subroutine  ATILT). 

Controls  time  related  events  directly  after  lift-off.  Also 
contains  entry  point  routines  AQMAX,  AXPRT,  GLIMT, 
AWDEV,  ALIFT,  ATHRO,  AROLL,  and  AJUMP  which 
control  maximum  d3mamic  pressure,  normal  print, 
acceleration,  weigth  drop,  throttle  events,  roll 
maneuver,  and  jump  start  events,  respectively. 

Atmosphere  subroutine  which  contains  Patrick  AFB 
nominal,  hot  and  cold  and  Vandenburg  AFB  nominal, 
hot,  and  cold  atmosphere  routines. 

Defines  parameters  and  prints  weight  drop  events. 

(Entry  point  in  subroutine  ATILT) 

Prints  trajectory  block  printout  based  on  print  interval. 
(Entry  point  in  subroutine  ATILT). 

Controls  input  for  output  tables  for  subroutine  BIPTBL. 

Prints  output  parameter  summary  tables. 

Determines  the  influence  coefficients  (partial 
derivatives)  of  the  payoff,  terminal,  and  intermediate 
constraints  with  respect  to  the  control  parameters. 


8 


BAKRN 

BDRII 

BDRI 

BGLIM 

BKEND 

BSAVEG 

BTHREV 


BWDEV 

CAERO 

CHIPOL 

COPLDF 

DBANK 

DESOLV 


Controls  the  setup  logic  for  the  backward  trajectory 
integration  and  calls  the  integration  routines. 

Computes  the  partial  derivatives  used  in  the  calculation 
of  the  adjoint  equations  for  the  backward  trajectory. 

Computes  the  total  adjoint  derivatives. 

Defines  acceleration  limit  events  during  backward 
trajectory.  (Entry  point  in  subroutine  BTHREV). 

Terminates  adjoint  (or  backward)  integration  and 
adjusts  influence  coefficients  (if  required). 

Saves  impulse  response  functions  and  performs 
Simpson  integration  to  calculate  d3mamic  weighting 
matrix. 

Controls  the  thrust  event  logic  during  the  backward 
integration.  Also  contains  entry  routines  BWDEV  and 
BGLIM  which  controls  weight  drop  and  acceleration 
events  during  the  backward  integration. 

Controls  weight  drop  events  during  backward 
integration.  (Entry  point  in  subroutine  BTHREV). 

Evaluates  nonlinear  aerod3mamic  data. 

Evaluates  pitch  and  yaw  attitude  polynomials. 

Writes  a list  directed  file  based  on  user  requirements. 

Reads  aerod5mamic  and  wind  database  files. 

Controls  call  to  integration  subroutine  DPIR. 
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DEVISP 

DISPPRT 

DPIR 

FIND 

FUNISP 

GLIMT 

GOUT 

HOLDIT 

IINRC 

INITIAL 

INTER 

IS_PROCESS_ 

INTERACTIVE 

LDSWI 

LDWRIT 


Calculates  partial  derivative  of  specific  impulse  with 
respect  to  mass.  (Entry  point  in  function  FUNISP). 

Controls  the  output  of  data  to  the  dispersion  file. 

Integration  routine. 

Determines  attitude  polynomials  based  on  attitude  time 
history  information. 

Calculates  specific  impulse  based  on  thrust  throttle 
level. 

Defines  parameters  and  prints  acceleration  limit  events. 
(Entry  point  in  subroutine  ATILT). 

Displays  a character  string  at  the  terminal  and  writes  it 
to  the  print  file. 

Creates  pause  in  execution  of  program  in  graphic  or 
demand  mode. 

Reads  integer  values  from  the  aerodynamic  database. 
Initializes  program  inputs. 

Performs  linear  interpolation  on  nonlinear  aerodynamic 
data. 

Inquires  whether  the  current  process  is  interactive  or 
demand  mode. 

Creates  and  writes  direct  access  file  (used  in  interactive 
mode). 

Writes  data  to  specified  direct  access  file. 
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LLPRT 

Controls  user  interface  to  print  constraints  and  optim- 
ized updated  values,  print  control  variable  update,  print 
parameter  summary  table,  and  print  load  indicator 
table. 

MASSPRO 

Mass  properties  routine  for  calculation  of  djmamic 
center  of  gravity. 

MASTRE 

Main  program  which  controls  overall  program  flow. 

MATINV 

Performs  matrix  inversion. 

MENU 

Controls  calls  to  area  mode,  execute  mode,  print  mode, 
and  namelist  input  selection. 

PR63 

Nominal  1963  Patrick  reference  atmosphere  routine. 
Used  with  Range  Reference  atmosphere  model. 

RRAINT 

Initilization  routine  for  range  reference  atmosphere. 

RRASPL 

Spline  interpolation  routine  for  range  reference 
atmosphere. 

RRRAIN 

Interpolates  either  the  monthly  range  reference  table  or 
the  final  atmosphere  table. 

RRRATM 

Range  Reference  atmosphere  routine. 

RTMRK 

Part  of  integration  package  which  flags  termination  of 
the  integration. 

SDATA 

Block  data  for  Space  Shuttle  weight  summary  data. 

SEARCH 

Searches  a table  of  values  for  a unique  value. 
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SIMUL 


SPLINE 

SUM15STG 

SUMARY 

SUMHLLV 

TERMINATE 

TRANFM 

VR71 

WINDIN 


Calculates  coefficients  for  quadratic  equation  used  to 
relate  specific  impulse  to  thrust  throttle  level. 

Third  order  spline  interpolation  routine. 

Generates  output  summary  tables  for  Liqtiid  stage 
configuration. 

Generates  output  summary  tables  for  Space  Shuttle 
configuration. 

Generates  output  summary  tables  for  Strap-on  vehicle 
configuration. 

Terminates  execution  of  MASTRE. 

Multiplies  3x3  matrix  times  a 3x1  vector. 

Vandenburg  reference  atmophere  model.  Used  with 
Range  Reference  atmosphere  model. 

Allows  selection  of  eastern  or  western  test  range  mean 
monthly  wind. 
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Section  3.0 

Narrative  Subroutine  Descriptions 

The  following  subsections  define  detail  information  about  each  of  the 
subroutines  and  functions  found  in  the  MASTRE  Program.  Except  for  the 
first  subsection,  the  subsections  will  be  ordered  in  an  alphabetic  format  of 
the  name  of  the  subroutine  or  function.  Entry  routines  found  in 
subroutines  ATILT,  BTHREV,  and  FUNISP  will  be  included  in  the 
descriptions  of  these  subroutines  and  will  not  be  specified  as  separate 
subroutines. 
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3.1 


Subroutine  MASTRE 


3.1.1  Purpose 


Program  MASTRE  is  the  main  program  and  controls  the  logical  flow 
of  the  program  by  calling  the  major  subroutines. 

3.1.2  Variable  Listing 

3.1.3  Subroutines  Called: 


Name 

AFORND 

AFORUN 

ANEWCH 

BOPTBL 

BIPTBL 

BADLX 

BAKRN 

FUNISP 

INITIAL 

MENU 


Function 

Calculates  end  conditions  at  the  end  of  the  forward 
trajectory 

Controls  and  sets  up  the  forward  trajectory 
Calculates  and  applies  the  updates  for  the  control 
parameters 

Input  routine  for  output  parameter  summary  tables  in 
subroutine  BIPTBL 

Prints  output  parameter  summary  tables 
Calculates  partial  derivatives  by  using  forward 
differences  method 

Controls  and  sets  up  backward  trajectory 
Calculates  specific  impulse  based  on  throttle  level 
Controls  initial  inputs  from  user 

Controls  execution  modes  of  operation  from  user  input 


3.1.4  Calling  Subroutines: 

None 


3.1.5  Fortran  Listing 
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mastre 


Variable 

Variable  Definition 

char_vel(5) 

Characteristic  velocity 

choice 

Input  flag 

chvel 

Characteristic  velocity 

Lagrangian  multipliers 

delvp 

Delta  velocity  based  on  characteristics 
velocity 

demand 

Logical  indicating  the  operational  mode 

dold 

Date  of  update  name 

engdat(8,1 5) 

Engine  data  matrix 

fprfac 

Flight  performance  reserve  factor 

fpr_fac(5) 

Factor  for  calculation  of  flight 
performance  reserve  (branch  option) 

gzero 

Gravitational  constant  (9.80665  m/sec) 

ipr 

Denotes  the  thrust  event  from  which 
fuel  propellant  reserve  (FPR)  is 
calculated 

iprop(6) 

Propulsion  cutoff  flags  (stage 
dependent) 

istat 

Status  index 

jo 

Output  file  index 

last 

Previous  index  used  In  atmospheric 
routine 

Ibmm 

Denotes  the  simulation  of  liquid  booster 
module 

naltw 

Index  used  when  calculating  launch 
azimuth  partial  derivatives 

ncase 

Case  number 

nmax 

Iteration  counter 

nomi 

Index  indicating  first  iteration  pass 

noss 

Number  of  constraints 

ntcn 

Number  of  intermediate  constraints 

ntime 

Case  number  identification  used  in 
subroutine  ainit  to  reduce  input 
requirements  for  multiple  cases 

prk4 

Temporary  variable  used  in  calculation 
of  performance  reserve  option 

Status 

Global 

Local 

Global 

Global 

Global 

Global 

Local 

Global 

Global 

Global 

Global 

Global 

Global 

Local 

Global 

Global 

Global 

Global 

Global 

Global 

Global 

Global 

Global 

Globa! 

Global 


Common 

Block 

multi 

agent 

covi 

delvp 

ccc 

agent 

agent 

multi 

const 

ipr 

ipr 

ccc 

enput 

lonoff 

naltw 

bopcom 

agen3 

bgen3 

bgen3 

rest 

ntime 

ipr 
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mastre 


Variable 


prk5(5) 


t 


timer_addr 
timer  data 


vers 


Variable  Definition 

Same  as  prk4  but  stage  dependent  (used 
with  branch  trajectory  option) 

Time  from  lift-off 

Time  address 

Time  data 

Version  name 
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COMMON/TAULIM/TAULIM, NTAU, NBETA, TIMTAU 


CALL  BOPTBL 


3.2 


Subroutine  ACNTRO 


3.2.1 


Purpose 


The  purpose  of  subroutine  ACNTRO  is  to  calculate  the  current 
values  of  the  pitch  and  yaw  attitude  angles  during  the  min-H  phase  of 
flight.  Subroutine  ACNTRO  determines,  via  linear  interpolation,  the  values 
of  the  pitch  and  yaw  attitude  angles  at  discrete  time  points. 

3.2.2  Variable  Listing 

3.2.3  Subroutines  Called: 

Name  Function 

AMULG  Performs  linear  interpolation 

3.2.4  Calling  Subroutines: 

Name  Function 

ADERl  Calculates  time  dependent  portion  of  equations  of  motion 

BDRII  Calculates  equations  of  motion  for  backward  trajectory 


3.2.5 


Fortran  Listing 
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acntro 


cpotbl(21 0) 


cyotbI(21  0) 


Variable  Definition 


Roll  attitude  angle 


Yaw  attitude  angle 


Pitch  attitude  table  during  min-H 


Yaw  attitude  table  during  min-H 


Source  I/O  Status  Common 

Block 


output  Global  agen2 


acntro  output  Global  agen2 


anewch  input  Global 


anewch  input  Global 


contro 


contro 


Table  index  for  attitude  tables 


Attitude  control  table  index 


Flag  indicating  pitch  only  (1)  or  pitch 
and  yaw  (2)  attitude  control 


Number  of  points  in  attitude  table 


Number  of  points  in  attitude  tables 
during  min-H  phases 


Pi  constant  (3.14159265) 


ainit  input  Global  bgen3 
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3.3 


Subroutine  ACSTOP 


3.3.1  Purpose 

The  purpose  of  this  subroutine  is  to  calculate  values  and  partial 
derivatives  of  the  terminal  and  intermediate  constraints.  The  partial 
derivatives  are  used  as  the  initial  values  in  the  backward  integration  of  the 
adjoint  equations. 


None 


Function 

Defines  parameters  at  the  terminal  and  at  intermediate 
points  on  the  forward  trajectory 
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Variable 

Variable  Definition 

a (3, 3) 

Tranformation  matrix  from  equatorial 
to  plumbline  coordinate  systems 

a1  2w 

Plumbline  X component  of  earth  spin 
axis 

a22w 

Plumbline  Y component  of  earth  spin 
axis 

a32w 

Plumbline  Z component  of  earth  spin 
axis 

b 

Temporary  storage  for  velocity 
intercept  point 

c3 

Twice  the  energy 

cenc 

Cosine  of  inclination  angle 

cine 

Cosine  of  inclination  angle 

emue 

Gravitiational  constant 

enmm 

Conversion  from  meters  to  nautical 
miles 

comt 

Cosine  of  earth  rotational  angular  rate 
times  time 

cosb 

Cosine  of  heading  angle 

Grange 

Cosine  of  range  angle 

ct2 

Squared  value  of  cth 

cth 

Cosine  of  colatitude 

cthc 

Cosine  of  launch  colatitude 

cthi 

Cosine  of  launch  colatitude 

d 

Direction  cosine  matrix 

d r 

Radius  magnitude 

drngdt(2) 

Time  derivative  of  range  from  launch 
site 

drthe 

Partial  derivative  of  altitude  with 
respect  to  colatitude 

dur 

U Component  of  relative  velocity 
(excluding  winds) 

dv 

Squared  value  of  Inertial  velocity 
magnitude 

dvr 

V Component  of  relative  velocity 
(excluding  winds) 

d wr 

W Component  of  relative  velocity 

Source 

I/O 

Status 

Common 

Block 

aforun 

input 

Global 

agen2 

aforun 

input 

Global 

agen2 

aforun 

input 

Global 

agen2 

aforun 

input 

Global 

agen2 
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acstop 


Variable  Definition 
(excluding  winds) 

Slope  coefficient  for  relative  velocity 

Earth  flattening  coefficient 

Aerodynamic  heating  rate 

Index  for  array  location 

Index  indicating  which  orbital  velocity 
data  to  use  as  terminal  or  intermediate 
constraints 

Constraint  index 

Index  used  to  Indicate  the  number  of  the 
constraint  used  for  the  maximum 
heating  constraint 

Index  for  maximum  dynamic  pressure 
constraint 

First  order  partial  derivatives  of  the 
velocity  components  in  the  local 
coordinate  system 

Temporary  array 

Earth's  spin  rate 

Earth's  rotational  rate  times  time 

Partial  derivative  of  the  relative 
velocity  components  with  respect  to  the 
state 

Longitude 

Maximum  value  of  dynamic  pressure 
Radius  from  earth's  center 

Squared  value  of  radius 
Range  angle 
Earth's  radius 
Temporary  variable 
Current  earth  radius 

Storage  variable  for  final  mass  used  in 
branch  option 

Sine  of  inclination  angle 

Sine  of  heading  angle 

Sine  of  inertial  flight  path  angle 


ainit 

input 

ader 

input 

Status 


Local 

Global 

Global 

Local 

Global 

Local 

Global 

Global 

Local 

Local 

Global 

Local 

Local 

Local 

Global 

Global 

Local 

Local 

Global 

Local 

Global 

Global 

Local 

Local 

Local 


Common 

Block 


const 


comnew 


c 


heat 


qmax 


const 


const 


agen2 

save_ma 

ss 
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acstop 


tempi 


temp2 


vrint(2) 


Sine  of  earth  rotation  rate  times  time 


State  variable  array  (interpolated) 


Sine  of  colatitude 


Sine  of  launch  colatitude 


Sine  of  launch  colatitude 


Time  from  lift-off 


Temporary  variable 


Temporary  variable 


T emporary  variable 


Temporary  variable 


Temporary  variable 


Y component  of  plumbline  inertial 
velocity  vector 


One  minus  the  earth  flattening 
coefficient 


Temporary  variable 


U component  of  earth  relative  velocity 
vector 


U component  of  inertial  velocity  vector 


Z component  of  plumbline  inertial 
velocity  vector 


Value  of  constraint 


Magnitude  of  inertial  velocity  vector 


Squared  value  of  inertial  velocity 
magnitude 


Circular  velocity  used  to  calculate 
oblate  earth  model  velocity  option 
(KCDRES  and/or  KCDPHI=14) 


V component  of  earth  relative  velocity 
vector 


Intercept  point  for  velocity  versus 
range  constraint 


V component  of  inertial  velocity  vector  | m/sec 


Slope  coefficient  for  velocity  versus 
range  constraint 


m/sec  dpir 


input  Global  agen2 


input  Global  estop 


input  Global  estop 


vvic{2) 


Cutoff  velocity  based  on  two  body 
mechanics 
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acstop 


Variable  Definition 


Reltive  velocity  (excluding  winds) 


Temporary  variable  for  calculation  of 
oblate  model  corrections 


Temporary  variable  for  calculation  of 
oblate  mode!  corrections 


Temporary  variable  for  calculation  of 
oblate  model  corrections 


Temporary  variable  for  calculation  of 
oblate  model  corrections 


X component  of  plumbline  inertial 
velocity  vector 


W component  of  relative  velocity  vector!  m/sec 


W component  of  inertia!  velocity  vector  m/sec 


X component  of  plumbline  position 
vector 


Coefficient  for  calculation  of  oblate 
effects  on  velocity 


Coefficient  for  calculation  of  oblate 
effects  on  velocity 


Coefficient  for  calculation  of  oblate 
effects  on  velocity 


Coefficient  for  calculation  of  oblate 
effects  on  velocity 


X direction  cosine  of  current  launch 
vector 


Final  mass 


Y component  of  plumbline  position 
vector 


Initial  adjoint  variables 


Temporary  variable 


Temporary  variable 


Temporary  variable 


Y direction  cosine  of  current  launch 
vector 


Z component  of  plumbline  position 
vector 


Z direction  cosine  of  current  launch 
vector 
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INERTIAL  HEADING  ANGLE  TEMP2=C0SB*STH/SIN (VALE/RAD) 
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3.4 


Subroutine  ADER 


3.4.1  Purpose 

The  purpose  of  this  subroutine  is  to  calculate  the  portion  of  the 
equations  of  motion  which  are  independent  of  time.  These  equations  are 
used  for  the  forward  integration  only.  Subroutine  ADERl  is  combined  with 
this  subroutine  to  define  the  complete  equations  of  motion.  Information  for 
all  stages  is  contained  within  these  equations. 


3.4.2 

3.4.3 
Name 
AGEO 
AMULG 
ATMOSPHERE 
CAERO 
FUNISP 
RRASPL 


SPLINE 


Variable  Listing 

Sttbrowtines  Called: 

Function 

Calculates  gravitational  accelerations 
Linear  interpolation  routine 
Patrick  and  Vandenburg  atmospheric  routines 
Nonlinear  atmosphere  routine 
Calculates  specific  impulse  based  on  throttle  level 
Calls  subroutine  SPLINE  to  interpolate  Reference 
atmospheric  routine  parameters 
Interpolation  routine  using  spline  technique 


3.4.4 

Name 

AEOSR 

AFORUN 

ATHREV 

ATILT 

DISPPRT 


Calling  Subroutines: 

Function 

Stores  the  state  variables  during  the  foiward  integration 
Controls  forward  integration 
Controls  thrust  event  logic  in  forward  integration 
Controls  tilt-over  logic  in  forward  integration 
Controls  writing  output  file  for  dispersion  analyses 


3.4.5  Fortran  Listing 
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Variable 


Variable  Definition 


Variable 


a(3,3 


aero 


aerob(50,6,3 


aerod(30,1  7) 


aerodd 


Variable  Definition 


Tranformation  matrix  from  equatorial 
to  plumbline  coordinate  systems 


Plumbline  X component  of  earth  spin 
axis 


Plumbline  Y component  of  earth  spin 
axis 


Plumbline  Z component  of  earth  spin 
axis 


Constants  of  spline  interpolation  of 
second  stage  aerodynamic  coefficients 


Factor  used  to  define  the  effects  of 
angle  of  attack  and  sideslip  angle  on 
base  force 


Coefficient  of  continuum  flow  effects  to 
axial  force  coefficient 


Coefficient  of  molecular  flow  effects  to 
axial  force  coefficient 


Coefficient  of  continuum  flow  effects  to 
pitching  moment  coefficient 


Coefficient  of  molecular  flow  effects  to 
pitching  moment  coefficient 


Coefficient  of  continuum  flow  effects  to 
normal  force  coefficient 


Coefficient  of  molecular  flow  effects  to 
normal  force  coefficient 


interpolated  aerodynamic  coefficients 


Base  force  tables 


Aerodynamic  coefficient  tables 


Array  of  partial  derivatives  of 
aerodynamic  coefficients  with  respect 
to  mach  number 


Constants  of  spline  interpolation  of 
power-on  base  force 


Constants  of  spline  interpolation  of 
power-on  base  force 


Angle  of  attack 


Sideslip  angle 


Angle  of  attack 


Altitude 
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Variable 

Variable  Definition 

altis 

Altitude  of  launch  site 

alttbl(IOO) 

Altitude  table  for  wind  tables 

amx 

Aerodynamic  moment  about  vehicle  yaw 
axis 

amy 

Aerodynamic  moment  about  vehicle  roll 
axis 

amz 

Aerodynamic  moment  about  vehicle 
pitch  axis 

asto(4,67) 

Storage  array  for  weight  summary 
table 

aw 

Spline  coefficients  for  wind  parameter 
interpolation 

azw 

Wind  azimuth 

baero 

Spline  coefficients  for  aerodynamic 
coefficient  interpolation 

basthr 

Base  force  with  respect  to  thrust 

bb 

Constants  of  spline  interpolation  of 
second  stage  aerodynamic  coefficients 

bcacf 

Coefficient  of  continuum  flow  effects  to 
axial  force  coefficient 

bcamf 

Coefficient  of  molecular  flow  effects  to 
axial  force  coefficient 

bcmcf 

Coefficient  of  continuum  flow  effects  to 
pitching  moment  coefficient 

bcmmf 

Coefficient  of  molecular  flow  effects  to 
pitching  moment  coefficient 

bcncf 

Coefficient  of  continuum  flow  effects  to 
normal  force  coefficient 

bcnmf 

Coefficient  of  molecular  flow  effects  to 
normal  force  coefficient 

beta 

Sideslip  angle 

bf 

Constants  of  spline  interpolation  of 
power-on  base  force 

bfab 

Constants  of  spline  interpolation  of 
power-on  base  force 

bkfabt(50,2) 

Coefficient  table  for  alpha-beta  factor 
for  power-on  base  force 

bkfthr(50,2) 

Coefficient  tables  for  booster  base 
force 

boost 

Flag  specifying  that  the  booster  portion 

Source 

I/O 

Status 

Common 

Block 

ainit 

Input 

Global 

alat 

ainit 

input 

Global 

wind 

ader 

output 

Global 

agenS 

ader 

output 

Global 

agenS 

ader 

output 

input 

Global 

agenS 

ainit 

input 

Global 

astor 

ainit  input  Global  aerodi 


ainit  input  Global  aerodi 


Variable 


calp 


calp1 


calp2 


calp3 


caipha 


camf 


cax 


cazw 


cbaxii 


cbeta 


cc 


cchiy 


ccmcf 


Variable  Definition 


of  the  flight  is  being  simulated 


Spline  coefficient  for  wind  table 
interpolation 


Cosine  of  launch  azimuth 


Slope  of  axial  force  coefficient  with 
respect  to  angle  of  attack  (equivalent  to 
AERO(1)) 


Coefficient  of  axial  force  coefficient 
with  respect  to  continuum  flow  effects 


Cosine  of  desired  angle  of  attack  (alf) 


Temporary  variable 


Temporary  variable 


Temporary  variable 


Cosine  of  angle  of  attack 


Coefficient  of  axial  force  coefficient 
with  respect  to  molecular  flow  effects 


Zero  angle  of  attack  axial  force 
coefficient  (equivalent  to  AERO(2)) 


Axial  force  coefficient 


Cosine  of  wind  azimuth 


Constant  value  of  base  axial  force 


Cosine  of  desired  sideslip  angle  (aify) 


Spline  coefficient  for  linear 
aerodynamic  interpolation 


Coefficient  of  continuum  flow  effects  to 
axial  force  coefficient 


Coefficient  of  molecular  flow  effects  to 
axial  force  coefficient 


Cosine  of  pitch  attitude  angle 


Cosine  of  roll  attitude  angle 


Cosine  of  yaw  attitude  angle 


Coefficient  of  continuum  flow  effects  to 
pitching  moment  coefficient 


Coefficient  of  molecular  flow  effects  to 
pitching  moment  coefficient 


Coefficient  of  continuum  flow  effects  to 
normal  force  coefficient 
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Variable 


ccnmf 


cf 


cfab 


ip 


chiy 


cibeta 


Variable  Definition 


Coefficient  of  molecular  flow  effects  to 
normal  force  coefficient 


Constants  of  spline  interpolation  of 
power-on  base  force 


Constants  of  spline  interpolation  of 
power-on  base  force 


Status  Common 
Block 


Pitch  attitude  angle 

rad 

aderl 

output 

input 

Global 

agen2 

Yaw  attitude  angle 

rad 

ader1 

output 

input 

Global 

agen2 

Slope  of  roll  moment  coefficient  with 
respect  to  sideslip  angle  (equivalent  to 
AERO(3)) 


Roll  moment  coefficient  at  center  of 
gravity 


Zero  sideslip  angle  value  of  roll  moment 
coefficent  (equivalent  to  AERO(10)) 


Slope  of  pitch  moment  coefficient  with  /deg 
respect  to  angle  of  attack  (equivalent  to 
AERO(4)) 


Coefficient  of  pitching  moment 
coefficient  with  respect  to  continuum 
flow  effects 


Pitch  moment  coefficient  at  center  of 
gravity 


Coefficient  of  pitching  moment 
coefficient  with  respect  to  molecular 
flow  effects 


Zero  angle  of  attack  value  of  pitch 
moment  coefficient  (equivalent  to 
AERO(5)) 


Yaw  moment  coefficient  about  center  of 
gravity 


Roll  moment  coefficient  about  center  of 
gravity 


Pitch  moment  coefficient  about  center 
of  gravity 


Slope  of  normal  force  coefficient  with 
respect  to  angle  of  attack  (equivalent  to 
AERO{6)) 


Slope  of  yaw  moment  coefficient  with 
respect  to  sideslip  angle  (equivalent  to 


ader  output  Global  aprint 


ader  output  Global  aprint 


ader  output  Global  aprint 


Local 
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ader 


Variable 

Variable  Definition 

AERO(7)) 

cnbo 

Zero  sideslip  angle  value  of  roll  moment 
coefficent  {equivalent  to  AERO(12)) 

cncf 

Coefficient  of  normal  force  coefficient 
with  respect  to  continuum  flow  effects 

cncg 

Yaw  moment  coefficient  at  center  of 
gravity 

cnmf 

Coefficient  of  normal  force  coefficient 
with  respect  to  molecular  flow  effects 

cno 

Zero  angle  of  attack  value  of  normal 
force  coefficient  (equivalent  to 
AERO(8)) 

cnp 

Normal  force  coefficient 

colda 

Cosine  of  past  value  of  angle  of  attack 
(olda) 

coldb 

Cosine  of  past  value  of  sideslip  anqie 
(oldb) 

copga 

Cosine  of  orbiter  pitch  gimbal  angle 

cosdb 

Cosine  of  desired  minus  past  sideslip 
angle 

cosrho 

Cosine  of  engine  gimbal  angle 

coss 

Cosine  of  sigma  attitude  angle 

cost 

Cosine  of  theta  attitude  angle 

coyga 

Cosine  of  orbiter  yaw  gimbal  angle 

cpsi 

Cosine  of  psi  attitude  angle 

cp_input 

Logical  indicating  center  of  pressure 
input 

cs 

Yaw  force  coefficient 

cspga 

Cosine  of  SRB  pitch  gimbal  angle 

csyga 

Cosine  of  SRB  yaw  gimbal  angle 

ct2 

Squared  value  of  cth 

cth 

Cosine  of  colatitude 

c w 

Spline  coefficients  for  wind  parameter 
Interpolation 

cybeta 

Slope  of  side  force  coefficient  with 
respect  to  sideslip  angle  (equivalent  to 
AERO(9)) 
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Units  Source  I/O  Status  Common 

Block 


nput  Global  cp_input 


output  Global  agen2 
input 


output  Global  agen2 
input 


Local 


Variable 


dvar(25) 


Ibs/in^ 


Variable  Definition 


Zero  sideslip  angle  value  of  side  force 
coefficent  (equivalent  to  AERO(11)) 


Incremental  value  of  axial  force 
coefficient 


Incremental  value  of  pitching  moment 
coefficient 


Incremental  value  of  normal  force 
coefficient 


Partial  derivative  of  incremental  value  nt/m 

of  base  drag  force  with  respect  to 

altitude 


Density  of  LOX  tank 


Incremental  value  of  base  drag  force  newton 


Inboard  elevon  deflection  angle 


Outboard  elevon  deflection  angle 


Array  of  partial  derivatives  of  dynamic 
pressure  with  respect  to  state 
variables 


Aerodynamic  drag  force 


Partial  derivative  of  density  with 
respect  to  altitude 


Partial  derivative  of  altitude  with 
respect  to  colatitude 


Delta  between  1.09  and  current  value  of 
throttle  level 


Storage  array  for  the  state  derivatives 


Normal  component  of  thrust  moment 


Source  I/O  Status  Common 

Block 


Normal  component  of  aerodynamic 
moment  reference  arm 


Longitudinal  component  of  thrust 
moment  arm 


Longitudinal  component  of  aerodynamic  m 
moment  reference  arm 


output  Global  aprint 
input 


output  Global  aprint 
input 


newton  ader  output  Global  aprint 


output  Global  forint 
input 


output  Global  garbge 


Global  garbge 


output  Global  garbge 
input 


41 


Variable 

Variable  Definition 

dz 

Lateral  component  of  aerodynamic 
moment  arm 

EH 

1 /dz 

e1 

X component  of  local  east  vector 

e2 

Y component  of  local  east  vector 

e3 

Z component  of  local  east  vector 

elein 

Inboard  elevon  angle 

eleout 

Outboard  elevon  angle 

elevon(25,4) 

Elevon  angle  tables 

engdat(8,1 5) 

Engine  data  matrix 

engines(1 5,1 

This  array  indicates  which  engine  from 
the  ENGDAT  array  is  being  used  for  a 
certain  thrust  event.  (0-  not  being  used, 
1 -being  used) 

etirt 

External  tank  inert  weight 

fa 

Aerodynamic  axial  force  (negative) 

faa 

Aerodynamic  axial  force 

fab 

Base  axial  force 

faborb 

Orbiter  base  axial  base  force  for  109% 
thrust  levei 

fabt(4) 

Base  axaii  force 

fan 

Aerodynamic  normal  force 

fane 

Total  normal  force 

fklthr 

Coefficient  for  calculation  of  base  force 

fk2thr 

Coefficient  for  calculation  of  base  force 

fkalf 

Coefficient  of  base  force  with  respect 
to  angle  of  attack 

fkbeta 

Coefficient  of  base  force  with  respect 
to  sideslip  angle 

flat 

Earth  flattening  coefficient 

flatc 

Total  side  force 

fmb 

Pitching  moment  component  of  base 
force 

fn 

Normal  component  of  base  force 

fnb 

Normal  component  of  base  force 

Source  I/O 


Status  Common 
Block 


ader 

output 

Global 

aprint 

ader 

output 

Global 

aprint 

ainit 

input 

Global 

elevon 

ainit 

input 

Global 

ageni 

ainit 

input 

Global 

engines 

newton 

ader 

output 

Global 

aprint 

newton 

ader 

output 

Global 

agen2 

newton 

ader 

output 

Global 

agen5 

newton 


newton 
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Variable 

Variable  Definition 

Units 

Source 

I/O 

Status 

Common 

Block 

fom 

Total  vehicle  sensed  acceleration 

g's 

output 

Global 

agen5 

foms(1  5) 

Thrust  table  for  orbit  maneuver  system 

lbs 

ainit 

input 

Global 

omsrcs 

frcs(1  5) 

Thrust  table  for  rocket  control  system 

lbs 

ainit 

input 

Global 

omsrcs 

ftbl(15) 

Thrust  table  for  main  proplusion  system 

lbs 

ainit 

input 

Global 

mps 

glim(15) 


glimit 


gz 


gzero 


haero 


hatmos 


hbias 


headt 


hlox 


hratec 


iatmos 


iconsw 


Temporary  variable 


Temporary  variable 


X component  of  summation  of  thrust  and 
aerodynamic  forces 


Y component  of  summation  of  thrust  and 
aerodynamic  forces 


Z component  of  summation  of  thrust  and 
aerodynamic  forces 


Temporary  variable  in  gravitational 
equations 


Acceleration  limit 


Logical  variable  indicating  aceleration 
limit  has  been  achieved 


Projected  mass  at  acceleration  limit 


Temporary  variable  in  gravitational 
equation 


X component  of  graviational 
acceleration 


Y component  of  graviational 
acceleration 


Gravitational  constant  (9.80665  m/sec)  m/sec 


Gravitational  constant  (9.80665  m/sec)  m/sec 


Adjusted  altitude  for  base  force  table 
interpolation 


Altitude  used  to  interpolate  for 
atmospheric  parameters 


Altitude  bias 


Height  of  LOX  in  propellant  tank 


Height  of  LOX  in  tank 


Aerodynamic  heating  rate 


Atmospheric  routine  indicator 


Flag  to  indicate  termination  of  SRB 
moment  balance 


Flag  indicating  the  type  of  attitude  used 
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m/sec'' 


ainit 


atilt(gli 


^9 


m/sec^  ageo 


input  Global 


output  Global 


Local 


Input  Global 


input  Global 


input  Global 


output  Global 


const 


const 


ardc 


Input  Global 


Local 


Local 


output  Global 


input  Global 


output  Global 


comnew 


ardc 


agen3 


input  Global  agen3 


ader 


Variable 

ipoiy 

ithr 

ithro 

itol(15) 

i vrtsw 
jthrot(  1 5) 

jump 

kk 

lift 

linear_aero 
lstge(1  5) 
m 1 
m1  9 
m2 

m9 

minh 

mioad 

mmax 

mmin 

mombal 

moment_bal 

mpsflg(15) 


Variable  Definition 
in  the  booster  stage 

Units 

Source 

I/O 

Status 

Common 

Block 

Flag  indicating  number  of  polynominals 
in  booster  stage 

ainit 

input 

Global 

agenS 

Thrust  event  Index  number 

athrev 

input 

output 

Global 

agenS 

Index  for  SSME  throttle  table 

atilt 

input 

Global 

Ithro 

Flag  indicating  thrust  event  use  of  delta 
aerodynamic  coefficients  and  base  force 

ainit 

input 

Global 

delfab 

1st  stage  attitude  option  flag 

ainit 

input 

Global 

vrwtbl 

Index  indicating  number  of  times  the 
acceleration  limit  has  been  reached 
Nwithin  a given  thrust  event 

atilt 

input 

Global 

mps 

Jump  start  flag 

ainit 

input 

Global 

agen3 

Index 

Local 

Total  lift  force 

newton 

ader 

output 

Global 

aprint 

Flag  to  denote  use  of  linear  aerodynamic 
tables  in  the  first  stage 

ainit 

input 

Global 

linear_a 

ero 

Aerodynamic  coefficient  flag  to 
distinguish  stages 

ainit 

input 

Global 

agen3 

Index  to  indicate  place  in  aerodynamic 
tables 

athrev 

input 

Global 

Previous  index  for  continuum  and  free 
molecular  aerodynamic  data 

athrev 

output 

Global 

vaero 

Previous  index  for  aerodynamic 
coefficient  tables  for  forward 
trajectory 

output 

Global 

bodyf 

Previous  index  for  base  axial  force 
table 

athrev 

output 

Global 

bodyf 

Flag  to  indicate  thrust  event  which 
begins  min-h  attitude  optimization 

ainit 

input 

Global 

agen3 

Counter  index  for  interpolation  of  LOX 
parameters 

Local 

Maximum  index  for  mps  engines 

Local 

Minimum  index  for  mps  engines 

Local 

Flag  to  specify  the  use  of  moment 
balance  equations 

ainit 

input 

Global 

mombal 

Flag  to  indicate  simulation  of  moment 
balance 


ainit 

output 

Global 

agen3 

Flag  indicating  the  type  of  MRS  thrust 
simulation 
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Variable 

Variable  Definition 

mpsinp(1 5) 

Array  used  in  conjunction  with 
mpsflg=6  to  denote  which  engines  (with 
respect  to  the  ENGDAT  array)  will  use 
the  throttle  table 

n 

Index 

nchi 

Not  used 

neng 

Number  of  engines 

nf8 

Number  of  differential  equations  to  be 
integrated 

nmax 

Iteration  counter 

nobase 

Flag  indicating  that  no  base  force  will  be 
calculated  after  the  thrust  event 
specified  by  nobase 

noevnt(5) 

Number  of  thrust  events  per  stage 

nstage 

Index  number  of  current  stage 

nsy 

index  which  specifies  the  type  of 
engines  that  will  be  used  for  each  thrust 
event 

nsyst(1  5) 

Index  array  which  specifies  the  type  of 
engines  that  will  be  used  for  each  thrust 
event 

ntilt 

Flag  indicating  end  of  tiltover  phase  of 
flight 

ntrg7 

Liftoff  trigger  number 

numq 

not  used 

nwind 

Number  of  tabular  values  in  wind 
parameter  tables 

odynsf 

Orbiter  dynamic  scale  factor 

olda 

Past  value  of  angle  of  attack 

oldb 

Past  value  of  sideslip  angle 

omass 

One  divided  by  mass 

omx 

X component  of  earth  spin  vector  (same 
as  a12w) 

omy 

Y component  of  earth  spin  vector  (same 
as  a22w) 

omz 

Z component  of  earth  spin  vector  (same 
as  a32w) 

orbast 

Orbiter  axial  base  force  due  to  SSME 
throttling 

Source  I/O  Status  Common 

Block 


ainit  input  Global  mpsi 


Local 


Local 


Local 


input  Global  rest 


mastre  | input  | GlobaT[  agen3 


ainit  input  Global  agen3 


ainit  output  Global  agen3 
input 


athrev  input  Global  mult 


Local 


ainit  input  Global  agen3 


atilt  input  Global  ntilt 


atilt  output  Global  forint 


Local 


ainit  input  Global  wind 


45 


Variable 

Variable  Definition 

orbdrg 

Darg  force  on  orbiter 

orbdsf 

Orbiter  drag  scale  factor 

orbet 

Orbiter/external  tank  shear  force 

orbfx 

longitudinal  component  of  orbiter  thrust 
vector 

orbfz 

Normal  component  of  orbiter  thrust 
vector 

orbitr 

Flag  specifying  that  the  first  stage(s)  is 
being  simulated 

orbtf 

Orbiter  thrust  scale  factor 

orbwt 

Current  orbiter  weight 

outisp(6) 

Specific  impulse  of  engine  types 

outth(6) 

Actual  thrust  of  engine  types 

outtv{6) 

Vacuum  thrust  of  engine  types 

outwd(6) 

Flowrate  of  engine  types 

pi 

X component  of  radius  vector  projected 
on  equatorial  plane 

P2 

Y component  of  radius  vector  projected 
on  equatorial  plane 

P3 

Z component  of  radius  vector  projected 
on  equatorial  plane 

pam 

Atmospheric  pressure 

pat(1  4) 

Input/output  array  for  atmospheric 
parameters 

pazwdh 

Partial  derivative  of  wind  azimuth  with 
respect  to  altitude  {equivalent  to 
wargd(2)) 

pdome 

LOX  dome  pressure 

pel  X 

Partial  derivative  of  e1  with  respect  to 
X coordinate 

pely 

Partial  derivative  of  e1  with  respect  to 
Y coordinate 

pelz 

Partial  derivative  of  e1  with  respect  to 
Z coordinate 

pe2x 

Partial  derivative  of  e2  with  respect  to 
X coordinate 

pe2y 

Partial  derivative  of  e2  with  respect  to 
Y coordinate 

pe2z 

Partial  derivative  of  e2  with  respect  to 

Variable 

Variable  Definition 

Z coordinate 

pe3x 

Partial  derivative  of  e3  with  respect  to 
X coordinate 

pe3y 

Partial  derivative  of  e3  with  respect  to 
Y coordinate 

pe3z 

Partial  derivative  of  e3  with  respect  to 
Z coordinate 

pfkg 

Conversion  for  pounds  to  kilograms 

pfn 

Conversion  from  pounds  to  newtons 

phx 

Partial  derivative  of  altitude  with 
respect  to  X component 

phy 

Partial  derivative  of  altitude  with 
respect  to  Y component 

phz 

Partial  derivative  of  altitude  with 
respect  to  Z component 

plag 

temporary  variable 

plox 

Weight  of  LOX  in  tank 

prxx 

Partial  derivative  of  X component  of  the 
radius  unit  vector  with  respect  to  the  X 
coordinate 

prxy 

Partial  derivative  of  X component  of  the 
radius  unit  vector  with  respect  to  the  Y 
coordinate 

prxz 

Partial  derivative  of  X component  of  the 
radius  unit  vector  with  respect  to  the  Z 
coordinate 

pryy 

Partial  derivative  of  Y component  of  the 
radius  unit  vector  with  respect  to  the  Y 
coordinate 

pryz 

Partial  derivative  of  Y component  of  the 
radius  unit  vector  with  respect  to  the  Z 
coordinate 

przz 

Partial  derivative  of  Z component  of  the 
radius  unit  vector  with  respect  to  the  Z 
coordinate 

psffm 

Conversion  for  pounds  per  square  feet 
from  newtons  per  square  meter 

psftm 

Conversion  for  pounds  per  square  feet 
to  newtons  per  square  meter 

psi 

Yaw  attitude  angle  (optional  reference 
system) 

Source  I/O  Status  Common 

Block 


kg/lbs  ainit 


Ibs/nt  ainit 


input  Global  const 


input  Global  const 


Local 
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Variable 

Variable  Definition 

ptkg 

Conversion  from  pounds  to  kilograms 

ptn 

Conversion  from  pounds  to  newtons 

pvru 

Partial  derivative  of  relative  velocity 
with  respect  to  Y component  of  inertial 
velocity  vector 

p V rv 

Partial  derivative  of  relative  velocity 
with  respect  to  Z component  of  inertial 
velocity  vector 

pvrw 

Partial  derivative  of  relative  velocity 
with  respect  to  X component  of  inertial 
velocity  vector 

pvrx 

Partial  derivative  of  relative  velocity 
with  respect  to  X component  of  position 
vector 

pvry 

Partial  derivative  of  relative  velocity 
with  respect  to  Y component  of  position 
vector 

pvrz 

Partial  derivative  of  relative  velocity 
with  respect  to  Z component  of  position 
vector 

pw1  X 

Partial  derivative  of  x component  of 
wind  vector  with  respect  to  x position 

pw1  y 

Partial  derivative  of  y component  of 
wind  vector  with  respect  to  x position 

pwl  2 

Partial  derivative  of  z component  of 
wind  vector  with  respect  to  x position 

pw2x 

Partial  derivative  of  Y component  of 
wind  vector  with  respect  to  X 
component  of  position  vector 

pw2y 

Partial  derivative  of  Y component  of 
wind  vector  with  respect  to  Y 
component  of  position  vector 

pw2z 

Partial  derivative  of  Y component  of 
wind  vector  with  respect  to  Z 
component  of  position  vector 

pw3x 

Partial  derivative  of  Z component  of 
wind  vector  with  respect  to  X 
component  of  position  vector 

pw3y 

Partial  derivative  of  Z component  of 
wind  vector  with  respect  to  Y 
component  of  position  vector 

pw3z 

Partial  derivative  of  Z component  of 
wind  vector  with  respect  to  Z 
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Variable 


Variable  Definition 


Units 


Source 


I/O 


Status 


Common 

Block 


component  of  position  vector 

pwmdh 

Partial  derivative  of  wind  speed  with 
respect  to  altitude  (equivalent  to 
wargd(1)) 

Local 

q 

Dynamic  pressure 

nt/m''2 

ader 

output 

input 

Global 

agen2 

qalpha 

Product  of  dynamic  pressure  and  angle 
of  attack 

ader 

output 

input 

Global 

agen4 

qalpha_max 

Maximum  value  of  q alpha 

alnit 

input 

Global 

qalpha_ 

max 

qbeta 

Produce  of  dynamic  pressure  and 
sideslip  angle 

ader 

output 

Global 

agen4 

qcn 

Produce  of  dynamic  pressure  and 
normal  force  coefficient 

ader 

output 

Global 

agen4 

qdot 

Time  derivative  of  dynamic  pressure 

ader 

output 

input 

Global 

agen2 

qfact 

Dynamic  pressure  lag  pressure 

Local 

qfig 

Logical  variable  indicating  booster  SSME 
throttle  being  simulated 

ader 

output 

Global 

qmax 

qmax 

Maximum  value  of  dynamic  pressure 

psf 

ainit 

output 

input 

Global 

qmax 

qratio 

Ratio  of  dynamic  pressure  to  reference 
value  of  dynamic  pressure 

Local 

qref 

Reference  value  of  dynamic  pressure 

nt/m''2 

Local 

qva!ue(13) 

Current  values  of  parameters  used  in 
load  table  outputs 

varlabi 

ader 

output 

input 

Global 

loads 

r 

Radius  from  earth’s  center 

m 

ader 

output 

Global 

agen2 

r2 

Squared  value  of  radius 

m^2 

Local 

ratio 

Propellant  mixture  ratio 

ainit 

input 

Global 

tcl 

re 

Earth’s  radius 

m 

ainit 

input 

Global 

const 

reyno 

Reynold’s  number 

ader 

output 

Global 

reyno 

rho 

Atmospheric  density 

kg/m'^S 

Local 

rthe 

Current  earth  radius 

output 

Global 

agen2 

r X w X r 

Local  north  unit  vector 

Local 

s(15) 

Aerodynamic  reference  area  for  each 
thrust  event 

m^2 

ainit 

input 

Global 

ageni 

sa 

Sine  of  launch  azimuth 

I 

aforun 

input 

Global 

agen2 

salp 

Sine  of  desired  angle  of  attack  (alf) 

Local 

Variable 

Variable  Definition 

salpha 

Sine  of  angle  of  attack 

sazw 

Sine  of  wind  azimuth 

sbeta 

Sine  of  desired  sideslip  angle  (aify) 

schip 

Sine  of  pitch  attitude  angle 

schir 

Sine  of  roll  attitude  angle 

schiy 

Sine  of  yaw  attitude  angle 

sdynsf 

SRM  dynamic  scale  factor 

semach 

Mach  number  based  on  using  earth 
relative  velocity 

side 

Aerodynamic  side  force 

sigma 

Roll  attitude  angle  in  boost  reference 
coordinate  system 

sindb 

Sine  of  desired  minus  past  sideslip  angle 

sinrho 

Sine  of  angle  between  vehicle  centerline 
and  center  of  gravity  location 

sins 

Sine  of  sigma  attitude  angle 

Sint 

Sine  of  theta  attitude  angle 

smach 

Saved  value  of  mach  number 

solda 

Sine  of  past  value  of  angle  of  attack 
(olda) 

soldb 

Sine  of  past  value  of  sideslip  angle 
(oldb) 

sopga 

Sine  of  orbiter  pitch  gimbal  angle 

spsi 

Sine  of  psi  attitude  angle 

sq 

Product  of  aerodynamic  reference  area 
and  dynamic  pressure 

srbdsf 

SRB  drag  scale  factor 

srbtf 

SRB  thrust  scale  factor 

srbwt 

Average  weight  of  one  SRB 

sreyno 

Square  root  of  reynold  number 

srmdrg 

Drag  force  on  SRM 

srmet 

SRM/Externai  tank  shear  force 

srmext 

SRM  current  exit  area 

srmfx 

Longitudinal  component  of  SRM  thrust 

srmfz 

Normal  component  of  SRM  thrust 
vector 

Source  I/O 


newton 


deg 


Status  Common 
Block 


Local 


Local 


Local 


input  Global  agen2 


input  Global  agen2 


input  Global  agen2 


Local 


output  Global  aprint 


output  Global  agenS 


input  Global  ricont 


Local 


output  Global  garbge 


output  Global  pdome 
input 


input  Global  srmext 


Local 


Local 
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srmirt 


SRB  inert  weight 


Sine  of  SRB  pitch  gimbal  angle 


Y component  of  reiative  veiocity  vector  m/sec 


Y component  of  earth  relative  velocity  m/sec 
vector 


Z component  of  relative  velocity  vector  m/sec 


Z component  of  earth  relative  velocity 
vector 


X component  of  relative  velocity  vector  m/sec 


X component  of  earth  relative  velocity 
vector 


Name  of  the  vehicle  system  being 
simulated  (SHUTTLE,  STAGE15,  HLLV) 


Time  from  lift-off 


Tangent  of  pitch  gimbal  angle  of  1st 
equivalent  engine 


Tangent  of  pitch  gimbal  angle  of  2nd 
equivalent  engine 


Tangent  of  yaw  gimbal  angle 


Tangent  of  engine  pitch  angle 


Tangent  of  engine  yaw  angle 


Thrust  throttle  value 


Interpolated  MRS  throttle  required 


Not  used 


Minimum  value  of  throttle  level 


tau_const(1  0,  Constant  value  of  throttle  used  for 
constant  throttle  after  acceleration 
limit 


Longitudinal  component  of  thrust  vector  newton  ader 
for  each  system 


system 


tandpi 


tandp2 


tandy 


tempi 


temp2 


temp3 


temp4 


tempS 


Temporary  variable 


Temporary  variable 


Temporary  variable 


Temporary  variable 


Temporary  variable 


Temporary  variable 


output  Global  agen2 


output  Global  reyno 
input 


output  Global  agen2 


output  Global  reyno 
input 


output  Global  agen2 


output  Global  reyno 


input  Global  mps 


output  Global  tcl 
input 
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Variable 


temp6 


temp7 


temp8 


tendr 


test 


testi 


tf  xow 


tfzow 


theta 


thmfa 


Ihr  1 


thr2 


throt(1  5) 


thrust 


thrvac 


tlbm(30,2) 


tmagorb 


tmagsrb 


tmz 


tne(6,15) 


o2 


t s 


t V 


tvl(6) 


Variable  Definition 


X component  of  radius  unit  vector 


Y component  of  radius  unit  vector 


Z component  of  radius  unit  vector 


Time  to  terminate  roll  maneuver 


Logical  flag 


Logical  flag 


Thrust  to  weight  ratio  in  longitudinal 
component 


Normal  component  of  thrust  to  weight 
ratio 


Pitch  attitude  angle  (optional  reference  rad 
system) 


Thrust  minus  axial  force 


Thrust 


Thrust 


Throttle  table  for  MPS  motor 


Thrust 


Vacuum  thrust 


Vacuum  thrust  table  for  liquid  booster 
motor 


Lateral  component  of  thrust  vector  for 
each  system 


Thrust  magnitude  of  orbiter  engines 


Thrust  magnitude  of  solid  engines 


Z component  of  thrust  moment 


Array  which  defines  the  number  of 
engines  per  thrust  event 


Thrust  divided  by  2 


Summation  of  thrust  magnitudes 


Vacuum  thrust  magnitude 


Source  I/O  Status  Common 

Block 


Local 


Local 


Local 


output]  Global  agent 


Local 


Local 


Local 


output  Global  agenS 
input 


Local 


Local 


input  Globa)  mps 


Local 


Local 


input  Globa!  Ibm 


output  Global  tcl 
input 


output  Global  agenS 
input 


input  Global  agent 


Vertical  component  of  thrust  vector  for 
each  system 

sec 

ader 

output 

input 

Global 

tcl 

Vertical  component  of  moment  balanced 
thrust 

newton 

ader 

output 

input 

Global 

agenS 

Vertical  component  of  thrust  of  tst 
equivalent  engine 

newton 

ader 

output 

input 

Global 

garbge 

Variable 

Variable  Definition 

tx2 

Vertical  component  of  thrust  of  2nd 
equivalent  engine 

txs 

Vertical  component  of  non-moment 
balanced  thrust 

t X X 

Vertical  component  of  moment  balanced 
thrust 

txxx 

Normal  component  of  thrust  vector 

ty 

Longitudinal  component  of  moment 
balanced  thrust 

ty1 

Longitudinal  component  of  thrust  of  1st 
equivalent  engine 

ty2 

Axial  thrust  component  for  second 
equivalent  engine 

ty  s 

Longitudinal  component  of  non-moment 
balanced  thrust 

tyy 

Longitudinal  component  of  moment 
balanced  thrust 

tyyy 

Longitudinal  component  of  thrust  vector 

t2 

Lateral  component  of  moment  balanced 
thrust 

t2S 

Lateral  component  of  solid  motor  thrust 
vector 

t22 

Lateral  component  of  moment  balanced 
thrust 

U 

Y component  of  plumbline  inertial 
velocity  vector 

udxdy2 

Temporary  variable  used  in  calculation 
of  moment  balance  (1  .-(dx/dy)'^2) 

ullage 

Ullage  pressure  of  LOX  tank 

umf 

One  minus  the  earth  flattening 
coefficient 

umfc 

Temporary  variable 

u r 

Radius  unit  vector 

u wxr 

Unit  vector  in  local  east  direction 

V 

Z component  of  plumbline  inertial 
velocity  vector 

va 

Array  of  viscous  interaction 
coefficients 

vaerdd 

Array  of  partial  derivatives  of  viscous 
interaction  coefficients  with  respect  to 
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Variable 


Variable  Definition 


Source  I/O  Status  Common 

Block 


mach  number 

vaero 

Array  of  viscous  interaction 
coefficients 

Spline  coefficients  for  viscous 
interaction  coefficient  interpolation 

vc 

Spline  coefficients  for  viscous 
interaction  coefficient  interpolation 

vdotg 

Gravity  losses 

ve 

Magnitude  of  earth  relative  velocity 

vmag 

Magnitude  of  inertial  velocity  vector 

V r 

Magnitude  of  relative  velocity 

V r2 

Squared  value  of  wind  relative  velocity 

vwb 

Temporary  variable 

vxb 

Temporary  variable 

vyb 

Temporary  variable 

vzb 

Temporary  variable 

w 

X component  of  plumbline  inertial 
velocity  vector 

warg 

Wind  parameters 

wargd 

Partial  derivative  of  wind  parameters 
with  respect  to  altitude 

wddump(1 5) 

Amount  of  weight  dumped  during 
OMS/RCS  thrust  events 

wdoms(1  5) 

Weight  flowrate  of  OMS  engines 

wdot 

Propellant  flow  rate 

wdot1 

Propellant  flow  rate 

wdot2 

Propellant  flow  rate 

wdrcs(1 5) 

Weight  flowrate  of  RCS  engines 

wind 

Wind  vector 

wloxt 

Current  weight  of  LOX  in  propellant 
tanks 

wmag 

Wind  speed  magnitude 

w X r 

Magnitude  of  WXR  vector 

w X rm 

Magnitude  of  WXR  vector 

X 

X component  of  plumbline  position 

m/sec  ader 


m/sec  ader 


Ibs/sec  ainit 


kg/sec 


kg/sec 


kg/sec 


Ibs/sec  ainit 


m/sec 


lbs 


m/sec  ader 


output  Global  reyno 
input 


Local 


output]  Global  agen2 


Local 


Local 


Local 


Local 


Local 


input  Global  forint 


input  Global  omsrcs 


input  Global  omsrcs 


Local 


Local 


Local 


output  Global  omsrcs 
input 


output]  Global  agenS 


Local 


Local 


input  Global  I forint 


Variable 


xiamda 


Variable  Definition 


vector 


Vertical  component  of  center  of  gravity  m 


Vertical  component  of  gimbal  points  of 
equivalent  booster  engines 


Specific  impulse 


Coefficient  to  calculate  aerodynamic 
heating  indicator 


Coefficient  to  calculate  aerodynamic 
heating  indicator 


Coefficient  to  calculate  aerodynamic 
heating  indicator 


Coefficient  to  calculate  aerodynamic 
heating  indicator 


Coefficient  to  calculate  aerodynamic 
heating  indicator 


Coefficient  to  calculate  aerodynamic 
heating  indicator 


Coefficient  to  calculate  aerodynamic 
heating  indicator 


Knudsen  number 


Mean  free  path 


Reference  length 


Current  vehicle  mass 


Mach  number 


Auxiliary  vehicle  mass 


Propellant  flow  rate 


Continuous  portion  of  vehicle  mass 


Viscosity  coefficient 


Vertical  component  of  moment 
reference  point 


Storage  array  for  sine  and  cosine 
values  of  pitch  and  yaw  attitude  angles 


Total  vehicle  weight 


Temporary  variable 


Temporary  variable 


Z component  of  normal  axis  direction 


Status  Common 
Block 


input  Global  garbge 


input  Global  avggp 
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ader 


Variable  Definition 
cosine 

Temporary  variable 

Y component  of  plumbline  position 
vector 

Longitudinal  component  of  centerof 
gravity 

Longitudinal  component  of  center  of 
pressure 

Longitudinal  component  of  gimbal  point 
of  booster  equivalent  engine 

Longitudinal  component  of  moment 
reference  point 

External  tank  Y-ring  pressure 

X component  of  longitudinal  axis 
direction  cosine 

Temporary  variable 

Y component  of  longitudinal  axis 
direction  cosine 

Temporary  variable 

Z component  of  longitudinal  axis 
direction  cosine 

Temporary  variable 

Z component  of  plumbline  position 
vector 

Additional  integrated  variables 

Lateral  component  of  gimbal  point  of 
booster  equivalent  engines 

Temporary  variable 

Temporary  variable 

Z component  of  lateral  axis  direction 
cosine 

Temporary  variable 
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3.5 


Subroutine  ADERl 


3.5.1  Purpose 


The  purpose  of  this  subroutine  is  to  calculate  the  time  dependent 
portion  of  the  equations  of  motion.  During  the  forward  integration  both 
subroutines  ADER  and  ADERl  are  called  to  evaluate  the  equations  of 
motion.  Subroutine  ADERl  is  only  called  when  the  time  is  updated. 


3.5.2 

3.5.3 
Name 
ACNTRO 
AMULG 
CHIPOL 
MASSPRO 
SPLINE 


Variable  Listing 
Subroutines  Called: 

Function 

Defines  vehicle  attitude  during  min-H  phase 
Linear  interpolation  routine 

Calculates  pitch  and  yaw  attitude  from  polynomial 
Calculates  dynamic  mass  properties 
Interpolation  routine  using  spline  method 


3.5.4 

Name 

AEOSR 

AFORUN 

ATHREV 

ATILT 

DISPPRT 


Calling  Subroutines: 

Function 

Stores  the  state  variables  during  the  forward  integration 

Controls  forward  integration 

Controls  thrust  event  logic 

Controls  tilt-over  logic  in  forward  integration 

Controls  writing  output  file  for  dispersion  analyses 


3.5.5  Fortran  Listing 
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ader1 


Variable 


Variable  Definition 


Units 


Source 


I/O 


Status 


Common 


Block 


a(3,3) 

Tranformation  matrix  from  equatorial 
to  plumbline  coordinate  systems 

acg 

Spline  coefficients  for  center  of  gravity 
interpolation 

beg 

Spline  coefficients  for  center  of  gravity 
interpolation 

calcpar 

Logical  flag  to  indicate  calculation  of 
partials 

ccg 

Spline  coefficients  for  center  of  gravity 
interpolation 

cchip 

Cosine  of  pitch  attitude  angle 

cchir 

Cosine  of  roll  attitude  angle 

cchiy 

Cosine  of  yaw  attitude  angle 

eg 

Interpolated  values  of  center  of  gravity 
components 

cgbl 

Center  of  gravity  tables 

aderl 

output 

Input 

Global 

agen2 

aderl 

output 

input 

Global 

agen2 

aderl 

output 

input 

Global 

agen2 

chip 


Pitch  attitude  angle 


rad 


ader1 


output 


Global 


agen2 


chipa 

Pitch  attitude  angle  (output  from 
interpolation) 

deg 

chir 

Roll  attitude  angle 

rad 

chiro 

Initial  value  of  roll  attitude  angle 

chisav 

Saved  value  of  chip 

rad 

chiy 

Yaw  attitude  angle 

rad 

chiya 

Yaw  attitude  angle  (output  from 
interpolation) 

chpbas 

Pitch  attitude  bias  angle 

rad 

chrdot 

Roll  attitude  rate 

rad/sec 

chybas 

Yaw  attitude  bias  angle 

rad 

cpst 

Cosine  of  psi  attitude  angle 

cthi 

Cosine  of  launch  colatitude 

delwt 

Incremental  weight  overboard 

kg 

dphiz 

Longitudinal  displacement  due  to  GRR 

eventnum 

Number  of  event 

input 


1 

output 

input 

Global 

agen2 

atilt 

input 

Global 

ageni 

aderl 

output 

Global 

agenS 

aderl 

output 

Global 

agen2 

Input 

Local 


aderl 

output 

Global 

agenS 

aforun 

input 

Global 

agent 

aderl 

output 

Global 

agenS 

Local 

input  Global  agen4 


Local 

input  Global  agen2 
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aderl 


Variable 

Variable  Definition 

hdmach 

Mach  number  lower  limit  for  second  roll 
maneuver 

ifact 

Flag  indicating  the  type  of  attitude  used 
in  the  booster  stage 

ihead 

Roll  attitude  flag 

ipoly 

Flag  indicating  number  of  polynominals 
in  booster  stage 

ithr 

Thrust  event  index  number 

ivrtsw 

1st  stage  attitude  option  flag 

jump 

Jump  start  flag 

ks1 

Booster  attitude  indicator 

latcg 

Lateral  center  of  gravity  component 

latcgp 

Partial  derivative  of  lateral  CG  with 
respect  to  mass 

loncg 

Total  longitudinal  center  of  gravity 

loncgp 

Partial  derivative  of  total  longitudinal 
CG  with  respect  to  mass 

minh 

Flag  to  indicate  thrust  event  which 
begins  min-h  attitude  optimization 

moboos 

Booster  mass 

momain 

Main  engine  mass 

mombal 

Flag  to  specify  the  use  of  moment 
balance  equations 

mpflag 

Alternate  mass  properties  flag 

noevnt(5) 

Number  of  thrust  events  per  stage 

norcg 

Total  normal  component  of  center  of 
gravity 

norcgp 

Derivative  of  normal  CG  with  respect  to 
mass 

nroll 

Flag  indicating  booster  roll  program 
after  launch 

olow 

Orbiter  liftoff  weight 

omega 

Earth's  spin  rate 

peg 

Derivative  of  center  of  gravity 
components  with  respect  to  mass 

pfkg 

Conversion  for  pounds  to  kilograms 

phil 

Longitude  at  launch 

pi 

Pi  constant  (3.14159265) 

Status  Common 
Block 


output  Global  headup 


input  Global  agenS 


output  Global  agenS 


input  Global  agen3 


input  Global  agen3 


input  Global  vrwtbl 


input  Global  agen3 


input  Global  agen3 


Local 


Local 


aforun 

input 

Global 

agen3 

athrev 

input 

Global 

olow 

ainit 

input 

Global 

const 

kg/lbs  ainil 


rad 


input  Global  const 


Local 


input  Global  const 


ader1 


Variable  Definition 


Units 


Source 


I/O 


Status 


Common 

Block 


Propellant  weight  for  each  engine  type 


kg 


ainit 


input 


Global 


agent 


Sine  of  pitch  attitude  angle 


output 


Global 


agen2 


Sine  of  roll  attitude  angle 


aderl 


output 


Global 


agen2 


Sine  of  yaw  attitude  angle 


aderl 


output 

input 


Global 


agen2 


Sine  of  launch  colatitude 


input 


Global 


agen4 


Temporary  variable 


Local 


Time  from  lift-off 


output 

input 


Global 


forint 


Time  from  lift-off 


sec 


dpir 


input 


Global 


forint 


Time  to  begin  roll  maneuver 


sec 


aforun 


output 

input 


Global 


agent 


Time  to  terminate  roll  maneuver 


sec 


ainit 


input 


Global 


agent 


Time  to  begin  tiltover  maneuver 


sec 


atilt 


input 


Global 


agent 


Vertical  center  of  gravity  table 


m 


athrev 


input 


Global 


bodyf 


Longitudinal  center  of  gravity  table 


m 


athrev 


input 


Global 


bodyf 


Time  of  lift-off 


sec 


ainit 


input 


Global 


t liftoff 


Initial  vehicle  weight 


kg 


ainit 


input 


Global 


olow 


Vertical  component  of  center  of  gravity 


Global 


garbge 


Temporary  variable 


Local 


Current  vehicle  mass 


kg 


adert 


output 

input 


Global 


agen2 


Mach  number 


ader 


input 


Global 


agen2 


Auxiliary  vehicle  mass 


kg 


athrev 


input 


Global 


agen1 


Integrated  vehicle  mass  less  jettisoned 
inerts. 


kg 


dpir 


input 


Global 


forint 


Continuous  portion  of  vehicle  mass 


kg 


aderl 


output 

input 


Global 


agen2 


Storage  array  for  sine  and  cosine 
values  of  pitch  and  yaw  attitude  angles 


output 


Global 


X V 


Longitudinal  component  of  centerof 
gravity 


m 


output 


Global 


garbge 


Temporary  variable 


Local 


Temporary  variable 

Local 

Additional  integrated  variables 

variabi 

dpir 

Input 

Global 

forint 
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IFdFACT.GT.  l.AND.T.GT.TTILT)  GO  TO  101 


IF( .NOT.MPFLAG)  THEN 
DELWT=WINT-XM 

IF(TTHR.GT.NOEVNT(l) ) DELWT=OLOW-: 


3.6 


Subroutine  AEBANK 


3.6.1  Purpose 


The  purpose  of  this  subroutine  is  to  read  and  store  the  nonlinear 
aerod}mamic  database. 

3.6.2  Variable  Listing 

3.6.3  Subroutines  Called: 

None 

3.6.4  Calling  Subroutines: 

Name  Function 

AINIT  Input  routine 

3.6.5  Fortran  Listing 
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aebank 


Variable 


a 


bfock(1500) 
i 1 
i2 


Variable  Definition 

Temporary  storage  array 
Output  storage  block 
Number  of  elements  in  array 
Index 

Number  of  mach  points 

Index 

Index 

Index 

Index 

Index 

Record  number 

Number  of  record  on  direct  access  file 
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LOGICAL  DEMAND, GRAPH 


3.7 


Subroutine  AEOSR 


The  purpose  of  this  subroutine  is  to  store  the  time  and  state  variables 
during  the  forward  integration.  These  stored  values  are  interpolated  in  the 
backward  integration  for  determination  of  the  state  at  discrete  times. 


Name 

ADER 

ADERl 


Calculates  the  time  independent  portion  of  the  equations 
of  motion  during  forward  integration 
Calculates  the  time  dependent  portion  of  the  equations  of 
motion  during  forward  integration 


DPIR 


Controls  thrust  event  logic 

Controls  tilt-over  logic  in  forward  integration 

Integration  routine  defined  via  AFORUN 
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aeosr 


Variable  Definition 


Units 


Source 


Storage  array  for  the  state  derivatives 


ader 


Thrust  event  index  number 


athrev 


Index  for  state  variable  tables 


dpir 


Jump  start  flag 


ainit 


Parameter  for  Tabs  common  array 


Flag  to  indicate  thrust  event  which 
begins  min-h  attitude  optimization 


ainit 


Iteration  counter 


mastre 


Index  number  of  current  stage 


athrev 


Storage  array  for  parameters  printed  in 
final  loads  output  tables 


Storage  array  for  times  associated  with 
parameters  in  qload  array 


Current  values  of  parameters  used  in 
load  table  outputs 


Integration  step  size 


ainit 


Time  from  lift-off 


Bias  between  simulated  time  and 
reported  time  (used  for  branch  option) 


sec 


athrev 


Time  table  for  stored  state  variables 


sec 


Trigger  time  for  storage  of  state  during 
forward  integration 


sec 


Array  which  defines  the  number  of 
engines  per  thrust  event 


ainit 


Y component  of  plumbline  inertial 
velocity  vector 


m/sec 


dpir 


Array  for  storage  of  Y component  of 
inertial  velocity  vector  during  forward 
Integration 


m/sec 


Z component  of  plumbtine  inertial 
velocity  vector 


m/sec 


dpir 


Array  for  storage  of  Z component  of 
inertial  velocity  vector  during  forward 
integration 


m/sec 


X component  of  plumbline  inertial 
velocity  vector 


Array  for  storage  of  X component  of 
inertia)  velocity  vector  during  forward 
integration 


m/sec 
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I/O 

Status 

Common 

Block 

input 

Global 

forint 

input 

Global 

agenS 

output 

input 

Global 

agenS 

inut 

Global 

agen3 

Local 

Global 

agen3 

input 

Global 

agen3 

input 

Global 

mult 

output 

Global 

loads 

output 

Global 

loads 

input 

Global 

loads 

input 

Global 

agent 

input 

Global 

forint 

input 

Global 

mult 

output 

Global 

tabs 

output 

Global 

agent 

input 

Global 

agent 

input 

Global 

forint 

output 

Global 

tabs 

input 

Global 

forint 

input 

Global 

tabs 

input 

Global 

forint 

input 

Global 

tabs 

aeosr 


Variable 

Variable  Definition 

Units 

Source 

I/O 

Status 

Common 

Block 

wdot__mps 

Main  propulsion  system  flowrate  tables 

kg/sec 

Local 

wgt_boost(21 

Stored  booster  mass  tables 

kg 

output 

Global 

tabs 

wgt_mps(201 

Stored  MPS  mass  tables 

kg 

output 

Global 

tabs 

X 

X component  of  plumbline  position 
vector 

Input 

Global 

forint 

xbl(201) 

Array  for  storage  of  X component  of 
position  vector  during  forward 
integration 

m 

output 

Global 

tabs 

xmbl(201 ) 

Array  for  storage  of  vehicle  mass 
(continuous)  during  forward  integration 

output 

Global 

tabs 

xmiad 

Continuous  portion  of  vehicle  mass 

kg 

aderl 

input 

Global 

agen2 

y 

Y component  of  plumbline  position 
vector 

m 

dpir 

input 

Global 

forint 

ybl(201 ) 

Array  for  storage  of  Y component  of 
position  vector  during  forward 
integration 

m 

output 

Global 

tabs 

Z 

Z component  of  plumbline  position 

m 

dpir 

input 

Global 

forint 

vector 

zap(18) 

Additional  integrated  variables 

variabl 

dpir 

Input 

Global 

forint 

zbl(201) 

Array  for  storage  of  Z position 
component  during  forward  integration 

m 

output 

Global 

tabs 
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IE (QVALUE (I) .ge.QLOAD (K) ) then 

STORES  THE  STATE  DURING  THE  FORWARD  TRAJECTORY  QLOAD ( K) =QVALUE ( I ) 

QTIME (K) =T-tbias (nstage) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z)  endif 
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3.8 


Subroutine  AFORND 


3.8.1  Purpose 

The  purpose  of  this  subroutine  is  to  compute  constraint  errors,  set  up 
initial  values  for  the  backward  integration  adjoint  equations,  and  print 
terminal  summary  tables. 

3.8.2  Variable  Listing 


3.8.3 

Name 

ACSTOP 

SUM15STG 

SUMARY 

SUMHLLV 


Subroutines  Called: 

Function 

Calculates  intermediate  and  terminal  constraints 
Provides  weight  summary  assuming  1.5  stage 
configuration 

Provides  weight  summary  assuming  Shuttle 
configuration 

Provides  weight  summary  assuming  Heavy  Lift 
configuration 


3.8.4 
Name 
MASTRE 

3.8.5 


Calling  Subroutines: 
Function 

Controls  program  flow 
Fortran  Listing 
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Variable 


aa 


aerod(30,1  7) 


alt 


ap(10,2) 


ask 


ay(1  0,2) 


azi 


b 


c1 


c3 


case 


cjd 


cmue 


cptbl(30) 


cstvar(1  0) 


cytbl(30) 


demand 


drho(19) 


dsireq 


ha 


head 


header{20) 


hp 


Variable  Definition 


Launch  azimuth 


Aerodynamic  coefficient  tables 


Altitude 


Coefficients  for  booster  pitch  attitude 


Change  in  constraints  desired  in 
predicting  control  variables  and 
parameters 


Coefficients  for  booster  yaw  attitude 


Inertial  azimuth 


Storage  array  of  printed  variables 


Angular  momentum 


Twice  the  energy 


Case  number 


Semi-major  axis 


Gravitiational  constant 


Booster  pitch  attitude  angle  table 


State  storage  array 


Booster  yaw  attitude  angle  table 


Logical  indicating  the  operational  mode 


Difference  between  current  and  desired 
constraint  values 


Desired  value  of  constraint 


Source 

I/O 

Status 

Common 

Block 

ainit 

input 

Global 

agen2 

ainit 

input 

Global 

aerodi 

ader 

output 

Global 

agen2 

atilt 

input 

Global 

body 

Local 

atilt 


deg  aprtn 


variabi 


m^2/se  afornd 


m'^2/se  afornd 


ainit 


m^3/se  ainit 


rad 


variabi 


rad 


athrev 


athrev 


initial 


output 


output 


output 


input 


input 


output 


input 


input 


Global 


Global 


Local 


Global 


Global 


Global 


Local 


Global 


Global 


Global 


Global 


Global 


afprn 


afprn 


agen2 


const 


contro 


estop 


contro 


ccc 


variabi  anewch 


input  Globa!  drho 


Local 


e1 

Fraction  of  optimization  step  to  be  made 
when  updating  optimization  variables 

anewch 

input 

Global 

drho 

ftbl{15) 

Thrust  table  for  main  proplusion  system 

lbs 

ainit 

input 

Global 

mps 

gam 

Inertial  flight  path  angle 

rad 

ader 

output 

Global 

afprn 

Relative  flight  path  angle 


Change  in  constraints  obtained  (actual  - 
desired) 


Altitude  of  apogee 


Storage  array  for  headings  in  printout 


Array  defining  constraint  titles 


Altitude  of  perigee 


Number  of  lines  to  use  in  load  table 


Local 


input  Global  ageni 


input  Global  enput 


Local 


Local 
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afornd 


Variable 


kcdphi(20) 


kcdres(6,5) 


mission(2) 


ncnrs(5) 


Variable  Definition 


output 


Status  Common 
Block 


Name  of  units  of  parameters  In  load 
table 


Number  of  constraints 


Index  counter 


Jump  start  flag 


Terminal  constraint  selection  flag  array 


Array  for  intermediate  constraint 
function  code 


index  indicating  which  orbital  velocity 
data  to  use  as  terminal  or  intermediate 
constraints 


Internal  flag  to  indicate  partial 
derivative  runs 


Character  indicating  name  of  mission 


Name  of  parameters  in  load  table  output 


Name  of  parameters  in  load  table  output 


Index  used  for  booster  sideslip  attitude 
control 


Number  of  constraints  at  restart 


Iteration  counter 


Number  of  constraints 


Index  used  in  conjunction  with  timmps 
to  indicate  a throttle  event  in  the 
booster  stage 


Number  of  intermediate  constraints 


Number  of  thrust  events 


Array  specifying  the  thrust  events 
where  intermediate  constraints  will  be 
imposed 


Percentage  of  predictability 
(GOT/ASKMOO) 


Conversion  for  pounds  to  kilograms 


Longitude 


Input  Global 


input  Global  enput 


output  Global  vie 


badix  input  Global  rest 


nput  Global  mission 


input  Global  taulim 


ainit  input  Global  rest 


mastre  input  Global  agen3 


mastre  input  Global  bgen3 


ainit  input  Global  taulim 


input  Global  rest 


input  Global  agen3 


input  Global  enput 


input  Global  const 


output  Global  afprn 
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afornd 


Variable 


phite(20) 


predp 


psireq(20) 


pslrst(6,5) 


pstr(20) 


restx(1  0,5) 


savcp(40) 


system 


taul(1  5) 


time(2, 1 6) 


timmps(1  5) 


Variable  Definition 


Values  of  payoff  and  constraints 


Predicted  value  of  payoff  function 


Source 


Status  Common 
Block 


variabi 


output  Global 


variabi  anewch  input  Global 


Desired  values  of  terminal  constraints  variabi  ainit 


Desired  values  of  intermediate 
constraints 


Previous  values  of  phite  array 


Dynamic  pressure 


Radius  from  earth’s  center 


Radius  of  apogee 


Earth’s  radius 


Variable  storage  array  for  jump  start 
option 


Range  angle 


Ground  range 


Radius  of  perigee 


Saved  value  of  radius 


Storage  array  for  optimization 
parameters 


save(20,13)  Storage  array 


Name  of  the  vehicle  system  being 
simulated  (SHUTTLE,  STAGE15,  HLLV) 


Time  from  lift-off 


Time  increments  for  thrust  events 


Geocentric  latitude  of  subvehicle  point 


Geodetic  latitude  of  subvehicle  point 


Actual  times  for  thrust  events 
measured  from  launch 


Time  table  for  MPS  motor 


Time  for  throttle  event  in  first  stage 


Y component  of  plumbline  inertial 
velocity  vector 


2 component  of  plumbline  inertial 
velocity  vector 


Value  of  constraint  from  ASCTOP 


Magnitude  of  inertial  velocity  vector 


variabi  ainit 


variabi  afornd 


input  Global  yli 


input  Global  enput 


input  Global 
output 


nt/m'^2  I afornd  | output!  Global  agen2 


input  Global  agen2 
output 


input  Global  const 


input  Global  restx 


output  Global  afprn 


output  Global  afprn 


variabi  athrev 


output  Globa!  auto 
input 


input  Global  loads 


input  Global  system 


input  Global  forint 


input  Global  agent 


output  Global  afprn 


output  Global  afprn 


output  Global  agent 


Input  Global  mps 


input  Global  taulim 


input  Global  forint 


input  Global  forint 


output  Global  afprn 


afornd 


Variable 


Variable  Definition 


Units  Source  I/O  Status  Common 

Block 


wippb 


X component  of  plumbline  inertial 
velocity  vector 


Change  in  optimization  parameter  with 
respect  to  control  parameters 


Change  in  optimization  parameter  with 
respect  to  control  variables 


Initial  vehicle  weight 


w_margin(2)  Required  value  of  weight  margin  at  the 
end  of  selected  stage 


X component  of  plumbiine  position 
vector 


Inclination  angle 


Flag  indicating  that  payoff  will  be 
maximized  (=1)  or  minimized  (=-1) 


Current  vehicle  mass 


Mach  number 


Vehicle  mass 


xmlb_after  Vehicle  weight  after  event 


xmlb_before  Vehicle  weight  before  event 


Angle  between  launch  longitude  and 
descending  node 


Y component  of  plumbline  position 
vector 


ylint(7,20)  Initial  state  variables  of  the  adjoint 
equations  of  motions  for  backward 
integration 


Z component  of  plumbline  position 
vector 


Additional  Integrated  variables 


m/sec  dpir  input  Global  forint 


anewch  Input  Global  drho 


variabi  anewch  Input  Global  drho 


lbs  alnit  Input  Global  agen2 


kg  alnit  input  Global  multi 


m dpir  input  Global  forint 


afornd  output  Global  afprn 


ainit  input  Global  agen2 


input  Globa!  agen2 


afornd  I output  Global  agen2 


afornd  output  Global  afprn 


input  Global  afprn 


dpir  Input  Global  forint 


afornd  output  Global 


dpir  input  Global  forint 


variabi  dpir  input  Global  forint 
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3.9 


Subroutine  AFORUN 


3.9.1  Purpose 

The  purpose  of  this  subroutine  is  to  control  the  setup  logic  for  the 
forward  trajectory  and  call  the  integration  subroutines  DESOLV  and  DPIR. 

3.9.2  Variable  Listing 

3.9.3  Subroutines  Called: 


Name 

ADER 

ADERl 

AEOSR 

AJUMP 

ALIFT 

APRTN 

AQMAX 

AROLL 

ATHREV 

ATHRO 

ATILT 

AWDEV 

AXPRT 

DESOLV 

DISPPRT 

FIND 

GLIMT 


Function 

Calculates  the  time  independent  portion  of  the  equations 

of  motion  during  forward  integration 

Calculates  the  time  dependent  portion  of  the  equations 

of  motion  during  forward  integration 

Stores  state  variables  during  forward  integration 

Controls  first  stage  jump  start  logic 

Controls  liftoff  based  on  thrust-to-weight 

Prints  block  trajectory  format  and  output  files 

Controls  printing  of  maximum  d3mamic  pressure 

Controls  roll  timing  logic 

Controls  thrust  event  logic  during  forward  integration 

Controls  throttle  phase 

Controls  tiltover  phase  of  trajectory 

Controls  weight  drop  logic 

Controls  normal  printout 

Initializes  integration  parameters  and  calls  integration 
subroutine 

Controls  printing  of  output  to  dispersion  file 
Calculates  pitch  and  yaw  attitude  using  polynomial 
Controls  and  calculates  acceleration  limit  timing  during 
forward  integration 


3.9.4 

Name 


Calling  Subroutines: 
Function 
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BADLX 

MASTRE 


Calculates  partial  derivatives  for  control  parameters 
Controls  total  program  logic 


3.9.5 


Fortran  Listing 


aforun 


Variable 

Variable  Definition 

Units 

Source 

I/O 

Status 

Common 

Block 

a{3,3) 

Tranformation  matrix  from  equatorial 
to  plumbline  coordinate  systems 

aforun 

output 

Global 

agen2 

a12w 

Plumbline  X component  of  earth  spin 
axis 

aforun 

output 

Global 

agen2 

a22w 

Plumbline  Y component  of  earth  spin 
axis 

aforun 

output 

Global 

agen2 

a32w 

Plumbline  Z component  of  earth  spin 
axis 

aforun 

output 

Global 

agen2 

aa 

Launch  azimuth 

rad 

ainit 

input 

Global 

agen2 

ap(10) 

Coefficients  for  booster  pitch  attitude 

aforun 

output 

input 

Global 

bodyf 

api{10,2) 

Coefficients  for  booster  pitch  attitude 

aforun 

output 

Global 

body 

astor(4,67) 

Storage  array  for  weight  output  table 

lbs 

ainit 

input 

Global 

astor 

ay(10) 

Coefficients  for  booster  yaw  attitude 

aforun 

output 

input 

Global 

bodyf 

ayi(1  0,2) 

Coefficients  for  booster  yaw  attitude 

aforun 

output 

Global 

body 

ay  I 

Lower  dependent  variable  value  for  auto 
step  size  logic 

sec 

ainit 

input 

Global 

forint 

blow 

Storage  variable  for  blow  (booster 
liftoff  weight) 

kg 

Local 

blows 

Storage  variable  for  blow  (booster 
liftoff  weight) 

kg 

Local 

ca 

Cosine  of  launch  azimuth 

aforun 

output 

Global 

agen2 

cchip 

Cosine  of  pitch  attitude  angle 

aforun 

output 

Global 

agen2 

chibas 

Total  vehicle  attitude  bias  at  launch 

rad 

aforun 

output 

Global 

agenS 

chip 

Pitch  attitude  angle 

rad 

aforun 

output 

Global 

agen2 

chir 

Roll  attitude  angle 

rad 

aforun 

output 

Global 

agen2 

chirf 

Final  value  of  roll  attitude  after  first 
stage  roil  maneuver 

rad 

Local 

chiro 

Initial  value  of  roll  attitude  angle 

rad 

atilt 

output 

input 

Global 

agent 

chiy 

Yaw  attitude  angle 

rad 

aforun 

output 

Global 

agen2 

chpbas 

Pitch  attitude  bias  angle 

rad 

aforun 

output 

Global 

agenS 

chrdot 

Roll  attitude  rate 

rad/sec 

aforun 

output 

Global 

agent 

input 

chybas 

Yaw  attitude  bias  angle 

rad 

aforun 

output 

Global 

agenS 

cpotbl{2t0) 

Pitch  attitude  table  during  min-H 

rad 

anewch 

input 

Global 

contro 

cptbl(30) 

Booster  pitch  attitude  angle  table 

deg 

ainit 

input 

Global 

contro 

aforun 


Variable 

Variable  Definition 

cthi 

Cosine  of  launch  colatitude 

cyotbl(21  0) 

Yaw  attitude  table  during  min-H 

cytbl(30) 

Booster  yaw  attitude  angle  table 

dlsp_var 

Array  of  output  variables  used  in 
dispersion  analysis 

el 

Lower  limit  for  stepsize  control 

eu 

Upper  limit  for  stepsize  control 

faz 

Initial  pointing  direction  of  orbiter  tail 

fom 

Designation  that  thrust-to-weight  will 
be  used  as  trigger  value  in  integration 

fsave{625) 

Storage  array  for  integration  routine 

ftbl(15) 

Thrust  table  for  main  proplusion  system 

glimit 

Logical  variable  indicating  aceleration 
limit  has  been  achieved 

hdmach 

Mach  number  lower  limit  for  second  roll 
maneuver 

hmn 

Minimum  step  size  when  using  variable 
step  integration  routine 

hmx 

Maximum  step  size 

ifact 

Flag  indicating  the  type  of  attitude  used 
in  the  booster  stage 

ihead 

Roll  attitude  flag 

ipr 

Denotes  the  thrust  event  from  which 
fuel  propellant  reserve  (FPR)  is 
calculated 

iprop(6) 

Propulsion  cutoff  flags  (stage 
dependent) 

irec 

Number  of  record  on  direct  access 
storage  file  for  dispersion  data  file 

ithr 

Thrust  event  index  number 

IV  a r 

Index  used  to  denote  the  type  of 
dispersion  case 

iwd 

Index  for  weight  drop  events 

i wdj 

Index  for  weight  drop  events 

1 X r 

Index  for  state  variable  tables 

jjump 

Flag  indicating  that  all  runs  between  the 
first  iteration  and  the  converged 
iteration  can  be  simulated  by  jump  start 

Source 

I/O 

ainit 

input 

anewch 

input 

ainit 

input 

ainit 

input 

ainit 

input 

Status 

Common 

Block 

Global 

agen4 

Global 

contro 

Global 

contro 

Local 

Global 

forint 

Global 

forint 

rad 

ainit 

input 

Global 

agen1 

g’s 

output 

Global 

agenS 

aforun 

output 

Global 

forint 

lbs 

ainit 

output 

Global 

mps 

input 

aforun 

output 

Global 

mps 

ainit 

input 

Global 

headup 

sec 

ainit 

input 

Global 

forint 

sec 

athrev 

input 

Global 

forint 

atilt 

input 

Global 

agen3 

aforun 

output 

Global 

agen3 

ainit 

input 

Global 

ipr 

ainit 

input 

Global 

ipr 

dispprt 

output 

input 

Global 

disp 

aforun 

output 

Global 

agen3 

ainit 

input 

Global 

disp 

aforun 

output 

Global 

agen3 

Local 


aforun 

output 

Global 

agen3 

Global  jjump 
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aforun 


Variable 


Variable  Definition 


Units  Source  I/O  Status  Common 

Block 


jumpst 


kcytab 


kyi(2) 


at  the  beginning  of  the  minh  phase 


Jump  start  flag 


Saved  value  of  jump 


Saved  value  of  jump 


Attitude  control  table  index 


Integration  error  indicator 


Mode  switch  to  indicate  the  portion  of 
the  routine  to  execute 


Integration  type  flag  for  forward 
trajectory 


Flag  to  indicate  internal  jump  start 


Index  for  interpolation  routine  in 
atmosphere  routines 


Order  of  booster  pitch  attitude 
polynomial 


Order  of  booster  pitch  attitude 
polynomials 


Order  of  differences  for  forward 
integration 


Booster  attitude  indicator 


Storage  variable  for  ks1  { attitude  flag) 


Order  of  booster  yaw  attitude 
polynomial 


Order  of  booster  yaw  attitude 
polynomials 


Line  counter  for  printout 


Variable  dimension  used  in  integration 
routine 


Integration  option 


Internal  flag  to  Indicate  partial 
derivative  runs 


Index  to  terminate  read 


Pointer  index  for  roll  angle  (sigma) 
lookup 


Pointer  index  for  pitch  and  yaw  angle 
(theta  & phi)  lookup 


ainit  output  Global  agen3 
input 


athrev  input  Global  jumpst 


ainit  input  Global  agen3 
output 


aforun  output  Global  disp 


ainit  input  Global  forint 


aforun  output  Global  mlast 


aforun  output  Global  kp 


ainit  input  Global  body 


ainit  input  Global  forint 


aforun  input  Global  agen3 
output 


aforun  output  Global  kp 


ainit  input  Global  body 


aforun  output  Global  agen3 


badix  input  Global  rest 


aforun  output  Global  ricont 


aforun  output  Global  ricont 


aforun 


Variable 


mision 


mission{2) 


mlast 


n 


naltw 


nchiot(6) 


ncoast 


nendct{7) 


nf8 


nmax 


noevnt(5) 


notrg 


nowd(1  5) 


np(7) 


nroll 


nstage 


nstg(15) 


ntrg1 


ntrg1  2 


Variable  Definition 


Flag  to  indicate  thrust  event  which 
begins  min-h  attitude  optimization 


Character  indicating  name  of  mission 


Character  indicating  name  of  mission 


Previous  index  in  atmospheric 
interpolation 


Pointer  index  for  atmospheric 
parameters  interpolation 


Index  used  when  calculating  launch 
azimuth  partial  derivatives 


Optimization  flag  used  with  branch 
trajectory  option 


Thrust  event  to  begin  coast  on  final  case 


Index  indicating  end  of  min-H  phases 


Number  of  differential  equations  to  be 
integrated 


Number  of  jump  start  times  to  be  saved 


Iteration  counter 


Number  of  thrust  events  per  stage 


Number  of  triggers  to  be  used  in 
integration 


Index  indicating  thrust  event  where 
weight  drop  event  will  occur 


Number  of  points  in  attitude  tables 
during  min-H  phases 


Flag  indicating  booster  roll  program 
after  launch 


Index  number  of  current  stage 


Internal  index  which  relates  thrust 
event  to  stage  number 


Index  used  in  conjunction  with  timmps 
to  indicate  a throttle  event  in  the 
booster  stage 


Flag  indicating  end  of  tiltover  phase  of 
flight 


MPS  throttle  trigger  number 


Weight  drop  event  trigger  for  forward 


Source 

I/O 

Status 

Common 

Block 

ainit 

input 

Global 

agen3 

aforun 

output 

Global 

agen3 

ainit 

input 

Global 

mission 

aforun 

output 

Global 

mlast 

aforun 

output 

Global 

mlast 

badix 

input 

Global 

naltw 

ainit 

input 

Global 

mult 

ainit 

input 

Global 

agen3 

ainit 

input 

Global 

agen3 

aforun 

output 

Global 

rest 

aforun 

output 

Global 

time_ju 

mp 

aforun 

output 

Global 

agen3 

ainit 

input 

Global 

agen3 

Local 


ainit  input  Global  agen3 


ainit  input  Global  bgen3 


aforun  output  Global  agen3 


aforun  output  Global  mult 


ainit  input  Global  mult 


ainit  input  Global  taulim 


aforun  output  Global  ntilt 


aforun  output  Global  forint 


aforun  output  Global  forint 


10? 


aforun 


Variable 

Variable  Definition 
trajectory 

Units 

ntrgl  3 

MPS  throttle  trigger  number 

ntrg1  4 

Trigger  for  roll  maneuver 

ntrgl  5 

Trigger  flag  for  dispersion  output 

sec 

ntrg2 

Thrust  event  trigger  number 

ntrg3 

Relative  velocity  cutoff  trigger  for 
forward  trajectory 

ntrg4 

Booster  attitude  trigger  for  forward 
trajectory 

ntrg6 

Maximum  dynamic  pressure  trigger  for 
forward  trajectory 

ntrg7 

Liftoff  trigger  number 

ntrg9 

Acceleration  limit  trigger  number 

nvnt 

Number  of  thrust  events 

nwvnt 

Number  of  weight  drop  events 

olow 

Orbiter  liftoff  weight 

kg 

olows 

Storage  variable  for  olow  (orbiter 
liftoff  weight) 

kg 

omega 

Earth’s  spin  rate 

rad/sec 

pi 

Pi  constant  (3.14159265) 

prop{6) 

Propellant  weight  for  each  engine  type 

kg 

ptkg 

Conversion  from  pounds  to  kilograms 

kg/lbs 

qdot 

Designation  that  the  time  derivative  of 
dynamic  pressure  will  be  used  as  a 
trigger  value 

qfig 

Logical  variable  indicating  booster  MPS 
throttle  being  simulated 

qioad(26) 

Storage  array  for  parameters  printed  in 
final  loads  output  tables 

qmax 

Maximum  value  of  dynamic  pressure 

psf 

qnom 

Storage  variable  for  qmax  ( maximum 
dynamic  pressure) 

qpen 

Maximum  value  of  dynamic  pressure 

kg/m''2 

qtime(26) 

Storage  array  for  times  associated  with 
parameters  in  qload  array 

sec 

sa 

Sine  of  launch  azimuth 

Source 

I/O 

Status 

Common 

Block 

aforun 

output 

Global 

forint 

aforun 

output 

Global 

trigc 

Local 

aforun 

output 

Global 

forint 

aforun 

output 

Global 

forint 

aforun 

output 

Global 

forint 

aforun 

output 

Global 

forint 

aforun 

output 

Global 

forint 

aforun 

output 

Global 

forint 

ainit 

input 

Global 

agen3 

ainit 

input 

Global 

agen3 

athrev 

input 

output 

Global 

olow 

Local 

ainit 

input 

Global 

const 

ainit 

input 

Global 

const 

ainit 

input 

Global 

agent 

ainit 

input 

Global 

const 

aforun 

output 

Global 

agen2 

aforun 

output 

Global 

qmax 

aforun 

output 

Global 

loads 

atilt 

input 

Global 

qmax 

Local 

aforun 

output 

Global 

qmax 

aforun 

output 

Globa! 

loads 

aforun 

output 

Global 

agen2 

aforun 


Variable  Definition 

Units 

Source 

I/O 

Status 

Common 

Block 

Storage  variable  for  final  mass  used  in 
branch  option 

aforun 

output 

Global 

save_ma 

ss 

Sine  of  pitch  attitude  angle 

aforun 

output 

Global 

agen2 

Sine  of  launch  colatitude 

ainit 

input 

Global 

agen4 

Name  of  the  vehicle  system  being 
simulated  (SHUTTLE,  STAGE15,  HLLV) 

ainit 

input 

Global 

system 

Time  from  lift-off 

sec 

aforun 

input 

Global 

forint 

Rate  of  change  of  throttle  limit 

/sec 

ainit 

input 

Global 

taulim 

Time  increments  for  thrust  events 

sec 

anewch 

input 

Global 

ageni 

Time  increment  for  weight  drop  event 

sec 

ainit 

input 

Global 

agent 

Time  to  begin  roll  maneuver 

sec 

aforun 

output 

Global 

agent 

Time  to  begin  roll  maneuver 

sec 

ainit 

input 

Global 

agent 

Time  required  for  booster  roll  program 

sec 

Local 

Time  to  terminate  roll  maneuver 

sec 

ainit 

output 

input 

Global 

agent 

Actual  times  for  thrust  events 
measured  from  launch 

sec 

aforun 

output 

Global 

agent 

Time  of  jump  start 

sec 

ainit 

input 

Global 

time_ju 

mp 

Time  table  for  MRS  motor 

sec 

ainit 

output 

input 

Global 

mps 

Trigger  time  for  storage  of  state  during 
forward  integration 

sec 

aforun 

output 

Global 

agent 

Time  to  begin  tiltover  maneuver 

sec 

ainit 

input 

output 

Global 

agent 

Storage  variable  for  tlift  ( time  to  begin 
tiltover  maneuver) 

sec 

Local 

Time  that  the  minh  phase  is  initiated 

sec 

aforun 

output 

Global 

agent 

Time  storage  variable  for  restart 

sec 

athrev 

input 

Global 

jumpst 

Time  to  begin  tiltover  maneuver 

sec 

aforun 

output 

Global 

agent 

Time  to  activate  print  trigger 

sec 

aforun 

output 

Global 

forint 

Time  to  activate  weight  drop  event 

sec 

aforun 

output 

Global 

forint 

Time  to  activate  booster  MRS  throttle 
trigger 

sec 

aforun 

output 

Global 

forint 

Mach  number  to  start  upper  stage  roll 
maneuver 

aforun 

output 

Global 

trigc 

Time  to  activate  dispersion  output  file 
creation 

sec 

aforun 

output 

Global 

disp 

104 


aforun 


Variable 

Variable  Definition 

Units 

Source 

tv2 

Time  to  activate  thrust  events 

sec 

aforun 

t v3 

Value  of  relative  velocity  to  activate 
trigger 

m/sec 

aforun 

t v4 

Tinne  to  activate  booster  attitude  phase 

sec 

aforun 

tv6 

Value  of  qdot  to  activate  maximum 
dynamic  pressure  trigger  (0) 

kg/m'^Z 

aforun 

tv7 

Value  of  thrust-tO‘Weight  to  activate 
liftoff  trigger  (1.) 

g's 

aforun 

tv9 

Time  to  activate  acceleration  limit 
trigger 

sec 

aforun 

tzero 

Time  of  simulation  initiation 

sec 

ainit 

tzeros 

Storage  variable  for  tzero  (initial  time) 

Time  of  lift-off 

sec 

ainit 

Storage  variable  for  t_liftoff  ( liftoff 
time) 

u 

Y component  of  plumbline  inertial 
velocity  vector 

m/sec 

aforun 

uz 

Y plumbline  component  of  launch  site 
inertial  velocity  vector 

m/sec 

V 

Z component  of  plumbline  inertial 
velocity  vector 

m/sec 

aforun 

viv(25) 

Initial  condition  array  for  jump  start 

ainit 

viv_sav(26) 

Saved  values  of  slate  variable  for  first 
stage  restart 

variabi 

ainit 

vz 

Z plumbline  component  of  launch  site 
inertia!  velocity  vector 

m/sec 

w 

X component  of  plumbline  Inertial 
velocity  vector 

m/sec 

aforun 

wd(15) 

Weight  dropped  during  weight  drop 
event 

kg 

ainit 

wint 

Initial  vehicle  weight 

kg 

ainit 

wjet(1  5) 

Jettison  weight  per  thrust  event 

kg 

ainit 

wz 

Initial  w velocity  component 

lbs 

wzero 

Initial  vehicle  weight 

lbs 

ainit 

wzeros 

Storage  variable  for  wzero  (initial 
weight) 

lbs 

wzerst 

Stored  value  of  wzero 

lbs 

athrev 

X 

X component  of  plumbline  position 

m 

aforun 

105 


I/O 

Status 

Common 

Block 

output 

Global 

forint 

output 

Global 

forint 

output 

Global 

forint 

output 

Global 

forint 

output 

Global 

forint 

output 

Global 

forint 

input 

Global 

agent 

Local 

input 

Global 

t_liftoff 

Local 

output 

Global 

forint 

Local 

output 

Global 

forint 

Input 

Global 

agen2 

input 

Global 

viv_sav 

Local 

output 

Global 

forint 

Input 

Global 

agent 

input 

output 

Global 

olow 

input 

Global 

agent 

Local 

input 

Global 

agen2 

Local 

input 

Global 

jumpst 

output 

Global 

forint 

aforun 


Variable 


Variable  Definition 


Units  Source  I/O  Status  Common 

Block 


vector 


Components  of  plumbline  inertial 
velocity  at  launch 


m/sec  input  I Global  agen4 


xjx(3 


xmach 


xmaug 


xmiad 


zap(1 8) 


Components  of  plumbline  position  vector  m 
at  launch 


Current  vehicle  mass 


Designation  that  mach  number  will  be 
used  for  trigger 


Auxiliary  vehicle  mass 


Integrated  vehicle  mass  less  jettisoned  kg 
inerts. 


Continuous  portion  of  vehicle  mass 


X plumbline  component  of  launch  site 
radius  vector 


Y component  of  plumbline  position 
vector 


Y plumbline  component  of  launch  site 
radius  vector 


Z component  of  plumbline  position 
vector 


Additional  integrated  variables 


Z plumbline  component  of  launch  site 
radius  vector 


input  Global  agen4 


output  Global  agen2 


input  Global  agen2 


output  Global  agent 
input 


input  Global  forint 


aforun  | output]  Global  agen2 


output  Global  forint 


variabi  aforun  output  Global  j forint 
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3.10 


Subroutine  AGEO 


3.10.1  Purpose 

The  purpose  of  this  subroutine  is  to  calculate  the  gravitational 
parameters  for  forward  and  backward  trajectories.  Gravitational 
acceleration  is  calculated  for  both  forward  and  backward  trajectories  and 
partial  derivatives  of  the  gravitational  acceleration  components  with 
respect  to  the  state  variables  are  calculated  for  the  backward  trajectory. 

3.10.2  Variable  Listing 

3.10.3  Subroutines  Called: 

None 

3.10.4  Calling  Subroutines: 

Name  Function 

ADER  Calculates  the  time  independent  portion  of  the  equations 

of  motion  during  forward  integration 

BDRII  Calculates  equations  of  motion  for  backward  integration 

3.10.5  Fortran  Listing 
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ageo 


Variable  Definition 

Units 

Source 

I/O 

Status 

Common 

Block 

J harmonic  for  earth  model 

ainit 

input 

Global 

const 

Temporary  variable 

Local 

Temporary  variable 

Local 

Gravitiational  constant 

m'^S/se 

ainit 

input 

Global 

const 

Squared  value  of  cth 

ader 

input 

Global 

agen2 

Cosine  of  colatitude 

ader 

input 

Global 

agen2 

Second  harmonic  for  earth  model 

input 

Global 

const 

Temporary  variable 

Local 

Temporary  variable  In  gravitational 
equations 

ageo 

output 

Global 

grav 

Temporary  variable  in  gravitational 
partial  derivative  equations 

ageo 

output 

Global 

grav 

Temporary  variable  in  gravitational 
partial  derivative  equations 

ageo 

output 

Global 

grav 

Temporary  variable  in  gravitational 
partial  derivative  equations 

ageo 

output 

Global 

grav 

Temporary  variable  in  gravitational 
equation 

m/sec^ 

ageo 

output 

Global 

grav 

Third  gravitational  harmonic 

ainit 

input 

Global 

const 

Temporary  variable 

Local 

Flag  indicating  forward  or  backward  Local 

trajectory  being  simulated  (=1, 
forward;  =2,  backward) 

Radius  from  earth’s  center  m ader  input  Global  agen2 

Radius  squared  m^^2  Local 

Earth’s  radius  m ainit  input  Global  const 

Earth  radius  divided  by  radius  of  vehicle  Local 
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SUBROUTINE  AGEO (N)  AGEO 


-CMT* (1 .+CJR*  (1 ,“5. *CT2) +HR* (3.-7 . *CT2) *CTH  AGEO  21 

+DJR*  ( .4285714  3- (6.-9. *CT2) *CT2) ) AGEO  22 


3.11 


Subroutine  AINIT 


3.11.1  Purpose 

The  purpose  of  this  subroutine  is  to  read  the  input  namelist  files  and 
initialize  program  parameters. 


3.11.2  Variable  Listing 

3.11.3  Subroutines  Called: 


Name 

AEBANK 

ATMOSPHERE 

DBANK 

FUNISP 

IINRC 

MASSPRO 

RRAINT 

RRASPL 

SIMUL 

WINDIN 


Function 

Retrieves  nonlinear  aerodynamic  data  from  database 

Patrick  and  Vandenburg  atmospheric  routines 

Retrieves  tabular  data  from  database 

Calculates  specific  impulse  based  on  throttle  level 

Retrieves  integer  data  from  database 

Calculate  dynamic  mass  properties 

Initializes  range  reference  atmospheric  model 

Range  reference  atmospheric  model 

Calculates  coefficients  for  specific  impulse  versus 

throttle  level  2nd  order  polynomial 

Reads  wind  data  from  database 


3.11.4  Calling  Subroutines: 

Function 

MENU  Controls  operation  of  program 

3.11.5  Fortran  Listing 
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ai  n it 


Variable 


aerob(50,6.3 


aerod(30,1  7) 


astor(4,67) 


aztbl(IOO) 


azwtbl(1  00) 


bcd(22) 


bhmax(15) 


bo(3,2 


bstep(15) 


Variable  Definition 

Units 

Source 

I/O 

Launch  azimuth 

rad 

ainit 

output 

Base  force  tables 

ainit 

output 

Aerodynamic  coefficient  tables 

ainit 

input 

Launch  geodetic  latitude 

deg 

ainit 

input 

Launch  longitude 

rad 

ainit 

output 

Altitude 

m 

ader 

output 

First  discrete  altitude  for  printout 
(lOkm)  (not  used) 

m 

ainit 

output 

Second  discrete  altitude  for  printout 
(14km)  (not  used) 

m 

ainit 

output 

Altitude  table  for  base  force  table 

m 

Altitude  of  launch  site 

m 

ainit 

output 

Character  variable  defining  user  answer 
to  questions  asked  during  execution 

Storage  array  for  weight  output  table 

lbs 

ainit 

output 

Lower  dependent  variable  value  for  auto 
step  size  logic 

sec 

output 

Wind  azimuth  table 

rad 

output 

input 

Wind  azimuth  table 

rad 

ainit 

output 

Wind  azimuth  table 

rad 

ainit 

input 

Base  axial  force  table 

Temporary  variable 

ainit 

input 

Lower  error  limit  for  backwards 
integration 

sec 

output 

Upper  limit  for  backwards  integration 

sec 

output 

Maximum  stepsize  for  backwards 
integration 

sec 

output 

Minimum  stepsize  for  backwards 
integration 

sec 

output 

Normal  base  force  table 

Direction  cosines  of  position  and 
velocity  vectors  at  launch 

output 

input 

Base  force  pitching  moment  table 

nt 

Backward  integration  stepsize 

sec 

output 

Lower  dependent  variable  value  for  auto 
stepsize 

sec 

output 

Status 

Common 

Block 

Global 

agen2 

Global 

aerodi 

Global 

aerodi 

Global 

alat 

Global 

alat 

Global 

agen2 

Global 

const 

Global 

const 

Local 

Global 

alat 

Local 

Global 

astor 

Global 

forint 

Global 

initp 

Global 

wind 

Global 

initp 

Local 

Global 

initp 

Global 

agen2 

Global 

agen2 

Global 

agen2 

Global 

agen2 

Local 

Global 

ageni 

Local 

Global 

agen2 

Global 

agen2 
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Variable 

Variable  Definition 

caa(15,11,6) 

Axial  force  coefficient 

caalp 

Slope  of  axial  force  coefficient  with 
respect  to  angle  of  attack  table 

cao 

Zero  angle  of  attack  axial  coefficient 
table 

case 

Case  number 

cbaxll 

Constant  value  of  base  axial  force 

cdphi 

Cosine  of  launch  longitude  bias 

char_vel(5) 

Characteristic  velocity 

chip 

Pitch  attitude  angle 

chiy 

Yaw  attitude  angle 

chpbas 

Pitch  attitude  bias  angle 

chrd 

Roll  attitude  rate 

chrdhd 

Roll  rate  upper  stage  roll  maneuver 

chrdot 

Roll  attitude  rate 

chybas 

Yaw  attitude  bias  angle 

Cj 

J harmonic  for  earth  model 

cla(t5,t  1,6) 

Yaw  force  coefficient 

clbeta 

Rolling  moment  slope  coefficient 

c!o 

Zero  sideslip  angle  roll  moment 
cefficient  table 

cma(1  5, 1 1 ,6) 

Pitching  moment  coefficient 

cmalp 

Slope  of  pitching  moment  coefficient 
with  respect  to  angle  of  attack  table 

cmo 

Zero  angle  of  attack  pitching  moment 
coefficient  table 

cmue 

Gravitiational  constant 

cna(15,1 1,6) 

Normal  force  coefficient 

cnalp 

Slope  of  normal  force  coefficient  with 
rspect  to  angle  of  attack  table 

cnbeta 

Slope  of  yawing  moment  coefficient 
with  respecty  to  sideslip  angle  table 

cnbo 

Zero  sideslip  angle  yawing  moment 
coefficient  table 

cno 

Zero  angle  of  attack  normal  force 

m/sec  ainit 


rad/sec  ainit 


deg/sec 


rad/sec 


rad 


m''3/se  ainit 


ainit 


/deg 


Status  Common 
Block 


output  Global  aero 


Local 


Local 


Global 


Global 


Local 


Global 


Global 


output 


Input 


output 

input 


output 

input 


output 


output 


Global 


Global 


Local 


Local 


agen2 


agent 


multi 


agen2 


agen2 


agenS 


agent 


ainit 

output 

Global 

agenS 

ainit 

output 

Global 

const 

ainit 

output 

Global 

aero 

output  Global  aero 


output  Global  const 


output  Global  aero 


Local 


ainit 


Variable 

Variable  Definition 
coefficient  table 

Units 

Source 

I/O 

Status 

Common 

Block 

coment 

Character  string  for  comments  in 
weights  namelist 

Local 

cpotbl(210) 

Pitch  attitude  table  used  during  min-H 
phases 

rad 

ainit 

output 

Global 

contro 

cp_input 

Logical  indicating  center  of  pressure 
input 

ainit 

output 

Global 

cp_input 

cro!) 

Cosine  of  adjusted  roll  angle 

Local 

cth 

Cosine  of  colatitude 

output 

input 

Global 

agen2 

cthi 

Cosine  of  launch  colatitude 

ainit 

output 

Global 

agen4 

cxa(1 5,11,6) 

Axial  force  coefficient 

ainit 

output 

Global 

aero 

cya(15,1  1.6) 

Side  force  coefficient 

ainit 

output 

Global 

aero 

cybeta 

Slope  of  yaw  force  coefficient  with 
respect  to  sideslip  angle  table 

/deg 

Local 

cyo 

Zero  sideslip  angle  value  of  side  force 
coefficent 

Local 

cyotbl(21  0) 

Yaw  attitude  table  used  during  min-H 
phases 

rad 

ainit 

output 

Global 

contro 

dail(25) 

Independent  altitude  table  for  base  force 
table  dfab 

m 

output 

Global 

delfab 

dbname 

Name  of  aerodynamic  data  base 

Local 

delalt 

Independent  altitude  table  for 
incremental  base  force  table 

Local 

delfab 

Incremental  base  force  table 

Local 

delvg 

Delta  velocity  for  geometry  reserves 

m/sec 

output 

Global 

delvp 

demand 

Logical  indicating  the  operational  mode 

1 

initial 

input 

Global 

ccc 

dfab(25) 

Base  force  table 

output 

Global 

delfab 

dispstep(2) 

Increment  steps  used  In  output  of 
dispersion  trajectories 

sec 

ainit 

output 

■ 

disp 

dj 

Second  harmonic  for  earth  model 

output 

Global 

const 

dp2 

Constraint  scale  factor 

ainit 

output 

Global 

auto 

dphiz 

Longitudinal  displacement  due  to  GRR 

output 

input 

Global 

agen2 

dtz 

Time  difference  between  GRR  and  launch 
time 

sec 

ainit 

output 

Globa) 

ageni 

el 

Lower  limit  on  step  size 

sec 

ainit 

output 

Global 

forint 

engdat(8,1 5) 

Engine  data  matrix 

ainit 

output 

Global 

ageni 

122 


Variable 

Variable  Definition 

Units 

Source 

engines(1 5,1 

This  array  Indicates  which  engine  from 
the  ENGDAT  array  is  being  used  for  a 
certain  thrust  event.  (0-  not  being  used, 
1 -being  used) 

ainit 

eu 

Upper  limit  for  stepsize  control 

sec 

ainit 

eventnum 

Number  of  event 

faz 

Stored  value  of  pointing  azimuth  of 
orbiter  tail  fin 

rad 

fazz 

Stored  value  of  pointing  azimuth  of 
orbiter  tail  fin 

rad 

ainit 

file_name 

Genertic  file  name 

flat 

Earth  flattening  coefficient 

ainit 

fpr_fac(5) 

Factor  for  calculation  of  flight 
performance  reserve  (branch  option) 

ainit 

ft  m 

Feet  to  meter  conversion 

Acceleration  limit 

9's 

ainit 

gzero 

Gravitational  constant  (9.80665  m/sec) 

m/sec^ 

ainit 

h 

Third  gravitational  harmonic 

ainit 

hbias 

Altitude  bias 

m 

ainit 

hdchrd 

Heads-up  to  head-down  roll  rate 

rad/sec 

ainit 

hdmach 

Mach  number  lower  limit  for  second  roll 
maneuver 

ainit 

head 

Storage  array  for  headings  in  printout 

ainit 

header(20) 

Array  defining  constraint  titles 

ainit 

hfuel(200) 

LH2  height  table 

in 

hlox(IOO) 

LOX  height  table 

in 

hmax(1  5) 

Maximum  step  size  when  using  variable 
step  integration  routine 

sec 

hmn 

Minimum  step  size  when  using  variable 
step  integration  routine 

sec 

ia 

Index 

iatmos 

Atmospheric  routine  indicator 

ainit 

ib 

Index 

Flag  to  indicate  termination  of  SRB 
moment  balance 

ainit 

ifact 

Flag  indicating  the  type  of  attitude  used 
In  the  booster  stage 

atilt 

ihead 

Roll  attitude  flag 

I/O 

Status 

Common 

Block 

input 

Global 

engines 

output 

Global 

forint 

Local 

Local 

output 

Global 

ageni 

Local 

output 

Global 

const 

output 

Global 

multi 

Local 

output 

Globa! 

mps 

output 

Global 

const 

output 

Global 

const 

input 

Global 

ardc 

output 

Global 

headup 

output 

Global 

headup 

output 

Global 

ageni 

output 

Global 

enput 

output 

Global 

tanks 

output 

Global 

tanks 

output 

Global 

ageni 

output 

Global 

forint 

Local 

output 

Global 

ardc 

Local 

output 

Global 

agen3 

output 

Global 

agen3 

output 

Global 

agen3 

Variable  Definition 

Units 

Source 

I/O 

Status 

index 

Local 

Index 

Local 

Index 

Local 

Index 

Local 

Index 

Local 

Index 

Local 

Flag  indicating  the  first  thrust  event  in 
the  last  stage 

output 

Global 

Temporary  variable  for  nmax 

output 

Global 

Flag  indicating  number  of  polynominals 
in  booster  stage 

ainit 

output 

Global 

Denotes  the  thrust  event  from  which 
fuel  propellant  reserve  (FPR)  is 
calculated 

output 

Global 

Propulsion  cutoff  flags  (stage 
dependent) 

ainit 

output 

Global 

Index  used  for  jump  start  for  branch 
trajectory 

ainit 

output 

Global 

Flag  indicating  thrust  event  use  of  delta 
aerodynamic  coefficients  and  base  force 

ainit 

output 

Global 

Index  used  to  denote  the  type  of 
dispersion  case 

ainit 

output 

Global 

Wind  table  type  index 

ainit 

output 

Global 

Index  indicating  number  of  thrust  events 
used  in  the  simulation 

■ 

Number  of  MPS  engines 

Local 

Thrust  event  indicator  of  jettison  of 
external  tank 

Local 

Flag  indicating  that  all  runs  between  the 
first  iteration  and  the  converged 
iteration  can  be  simulated  by  jump  start 
at  the  beginning  of  the  minh  phase 

ainit 

output 

Global 

Index  for  use  with  branch  trajectory 
option 

ainit 

input 

Global 

Jump  start  flag 

ainit 

output 

Global 

Saved  value  of  jump 

ainit 

output 

Global 

Terminal  constraint  selection  flag  array 

ainit 

output 

Global 

Array  for  intermediate  constraint 
function  code 

ainit 

output 

H 
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Common 

Block 


ipr 


ipr 

Istart 

delfab 

disp 

iwnc 


jjump 


istart 


agen3 

jumpst 

^ 

enput 


Variable 


Variable  Definition 


Units 


kdb(40) 

kdt(15) 


kind 


kindb 


kk 

kp(2) 


kpage 

kprt 

krder 


krderb 


k V 


kwta(7) 


ky(2) 


last 


latcg 

latcgp 


level 


linear  aero 


Ik 


loncgp 


Iprint 

Isb 


Array  for  control  parameter  flags 

Array  used  in  confunction  with  the  ipr 
option 

Integration  type  flag  for  forward 
trajectory 

Integration  type  flag  for  backwards 
trajectory 

Index 

Order  of  booster  pitch  attitude 
polynomial 

Page  number  index 

Index 

Order  of  differences  for  forward 
integration 

Order  of  differences  for  backwards 
integration 

Index  for  terminal  and  intermediate 
constraints 


Flag  indicating  pitch  only  (1)  or  pitch 
and  yaw  (2)  attitude  control 

Order  of  booster  yaw  attitude 
polynomial 

Previous  index  used  in  atmospheric 
routine 

Lateral  center  of  gravity  component 


m 


Partial  derivative  of  lateral  CG  with 
respect  to  mass 

Flag  specifying  propulsion  summary 
output  required 

Flag  to  denote  use  of  linear  aerodynamic 
tables  in  the  first  stage 

Index  indicating  which  orbital  velocity 
data  to  use  as  terminal  or  intermediate 
constraints 


Partial  derivative  of  total  longitudinal 
CG  with  respect  to  mass 

Print  flag 


Internal  flag  to  indicate  partial 
derivative  runs 


Source 


ainit 


ainit 


ainit 


ainit 


ainit 


ainit 


ainit 


ainit 


ainit 


ainit 


ainit 


ainit 


I/O 


Status 


output 

output 


output 


output 


output 


output 


output 


output 


output 


output 


output 


output 


output 

input 


Global 

Global 


Global 


Global 


Local 

Global 


Global 

Local 

Global 


Global 


Local 


Global 


Global 


Global 


Local 

Local 


Global 


Global 


Global 


Local 


output  Global 
output  Global 


output 


Global 


Common 

Block 


auto 

ipr 


forint 


agen3 


body 


agen3 


forint 


agen3 


agen3 


body 


enput 


tanks 


linear__a 

ero 

vie 


Iprint 

rest 


agen3 


lstge(1  5) 


Aerodynamic  coefficient  flag  to 
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Variable 

Variable  Definition 

distinguish  stages 

m 

index 

minh 

Flag  to  indicate  thrust  event  which 
begins  min-h  attitude  optimization 

mision 

Character  indicating  name  of  mission 

mission(2) 

Character  indicating  name  of  mission 

misson(6) 

Character  indicating  name  of  mission 

mombal 

Flag  to  indicate  moment  balance 
calculations  are  desired 

mpflag 

Alternate  mass  properties  flag 

mpname 

Name  of  alternate  mass  properties  input 
file 

mpsflg(15) 

Flag  indicating  the  type  of  MRS  thrust 
simulation 

mpsinp(1 5) 

Array  used  in  conjunction  with 
mpsflg=6  to  denote  which  engines  (with 
respect  to  the  ENGDAT  array)  will  use 
the  throttle  table 

mswch(l  5) 

Flag  indicating  which  thrust  events  are 
considered  critical 

n 

Index 

namist 

' Name  of  Namelist  file 

nbeta 

Index  used  for  booster  sideslip  attitude 
control 

ncnrs(5) 

Number  of  constraints  at  restart 

ncoast 

Thrust  event  to  begin  coast  on  final  case 

neng_out 

Index  defining  which  engine  will 
considered  out  for  a first  jump  start 

nfixed 

Number  of  fixed  engines 

nfuel 

Number  of  points  in  LH2  height  table 

niines 

Index  used  for  output  page  control 

nlox 

Number  of  points  in  LOX  height  table 

nmax 

Iteration  counter 

nobase 

Flag  indicating  that  no  base  force  will  be 
calculated  after  the  thrust  event 
specified  by  nobase 

Source  I/O  Status  Common 

Block 


Local 


ainit  input  Global  agen3 


output!  agenS 


Global  mission 


input  Global  initp 
output 


output  Global  mombal 


Global  mpropin 


output  Global  mpropn 
m 


output  Global  agen3 


ainit  output  Global  mps1 


ainit 

output 

Global 

taulim 

ainit 

output 

Global 

rest 

ainit 

output 

Global 

agen3 

output  Global  tanks 
input 


output  Global  agen3 


output  Global  agen3 
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Variable 


Variable  Definition 


Units  Source  I/O  Status  Common 

Block 


noevnt{5)  Number  of  thrust  events  per  stage 


Index  indicating  first  iteration  pass 


Number  of  optimization  parameters 


norcgp 


nowd(1  5) 


nstage 


nstg(15) 


nsyst(1  5) 


ntalph(2) 


ntbeta(2) 


Total  normal  component  of  center  of  in 
gravity 


Derivative  of  normal  CG  with  respect  to  in/lbs 


Temporary  index  array 


Number  of  constraints 


Index  indicating  thrust  event  where 
weight  drop  event  will  occur 


Number  of  points  In  attitude  tables 
during  min-H  phases 


Flag  indicating  booster  roll  program 
after  launch 


Index  number  of  current  stage 


Internal  index  which  relates  thrust 
event  to  stage  number 


Index  array  which  specifies  the  type  of 
engines  that  will  be  used  for  each  thrust 
event 


Number  of  points  In  angle  of  attack  table 


Flag  Indicating  that  output  tables  will 
(>0)  or  will  not  (=0)  be  generated 


Number  of  points  in  angle  of  attack  table 


Index  used  in  conjunction  with  timmps 
to  indicate  a throttle  event  in  the 
booster  stage 


Number  of  tabular  values  in  sideslip 
angle  tables 


Number  of  tabular  values  in  sideslip 
angle  tables 


Number  of  intermediate  constraints 


Case  number  identification  used  in 
subroutine  ainit  to  reduce  input 
requirements  for  multiple  cases 


Global  agen3 


output  Global  bgen3 


output  Global  agen3 


ainit  output  Global  bgen3 


ainit  output  Global  agen3 


athrev  output]  Global  mult 


ainit  output  Global  mu 


ainit  output  Global  agen3 


output  Global  aero 


output  Global  alat 


input  Global  aero 


output  Global  taulim 


input  Global  ae 


input  Global  aero 


output  Global  rest 
input 


output  Global  ntime 
input 
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Variable 

Variable  Definition 

ntmach 

Number  of  tabular  values  in  mach 
number  table 

nvnt 

Number  of  thrust  events 

nvrst{5) 

Array  specifying  the  thrust  events 
where  intermediate  constraints  will  be 
imposed 

nwind 

Number  of  tabular  values  in  wind 
parameter  tables 

nwvnt 

Number  of  weight  drop  events 

olow 

Orbiter  liftoff  weight 

omega 

Earth's  spin  rate 

orbase 

Orbiter  base  force  table 

out 

Index  defining  which  engine  will 
considered  out  for  a first  jump  start 

pat(1  4) 

Input/output  array  for  atmospheric 
parameters 

pfkg 

Conversion  for  pounds  to  kilograms 

pfn 

Conversion  from  pounds  to  newtons 

pi 

Pi  constant  (3.14159265) 

plot 

Logical  variable  used  to  indicate  plot 
output  file  is  to  be  generated 

pnm 

Independent  mach  number  table  used  for 
aerodynamic  coefficients 

prk4 

Temporary  variable  used  in  calculation 
of  performance  reserve  option 

prk5(5) 

Same  as  prk4  but  stage  dependent  (used 
with  branch  trajectory  option) 

prtot 

Total  propellant  weight  used  for 
performance  reserve  option 

psffm 

Conversion  for  pounds  per  square  feet 
from  newtons  per  square  meter 

psftm 

Conversion  for  pounds  per  square  feet 
to  newtons  per  square  meter 

psireq(20) 

Desired  values  of  terminal  constraints 

psirst(6.5) 

Desired  values  of  intermediate 
constraints 

psl 

Sea  level  pressure 

Units  Source  I/O  Status  Common 

Block 


output  Global  aero 


output  Global  agen3 


output  Global  enput 


output  Global  wind 


output  Global  agenS 


output  Global  olow 


output  Global  const 


Local 


Local 


output  Global  ardc 
input 


output  Global  const 
input 


output  Global  const 
input 


output  Global  const 


output  Global  plot 


Local 


output  Global  ipr 


output  Global  ipr 


output  Global  ipr 


output  Global  const 


output  Global  const 


kg/lbs  ainit 


Ibs/nt  ainit 


variabi 


newton 


output  Global 


output  Global  enput 


output  Global  const 


Variable 


Variable  Definition 


Status  Common 
Block 


Conversion  from  pounds  to  kilograms 


Conversion  from  pounds  to  newtons 


qalpha_max  Maximum  value  of  q alpha 


Reference  dynamic  pressure  table 


Optimization  step  size  control  constant 


Radius  from  earth's  center 


Propellant  mixture  ratio 


Earth's  radius 


Atmospheric  density 


Temporary  radius  value 


Temporary  radius  value 


Adjusted  roll  angle  to  compensate  for 
engine  out 


Aerodynamic  reference  area  for  each 
thrust  event 


Sine  of  launch  longitude  bias 


spradb  Increment  in  forward  difference  to 

evaluate  partial  derivative  of  payoff 
and  constraints  with  respect  to  first 
stage  pitch  attitude  variations 


srbnam  Name  of  SRB  input  file 


srmae(600)  SRB  exit  area  table 


srmftb(600)  SRM  vacuum  thrust  table 


srmttb{600) 


srm  v2 


SRM  time  table 


Temporary  storage  for  SRB  time  table 
variables  (1st  field  of  SRB  input  data 
file) 


Temporary  storage  for  2nd  field  of  SRB 
input  data  file 


Temporary  storage  for  3rd  field  of  SRB 
input  data  file 


Temporary  storage  for  SRB  vacuum 
thrust  (4th  field  of  SRB  input  data  file) 


Temporary  storage  for  SRB  flowrate 
(5th  field  of  SRB  input  data  file) 


Temporary  storage  for  SRB  exit  area 


output  Global  srm 
input 


output  Global  srm 


output  Global  srm 
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Variable 


Variable  Definition 


(6lh  field  of  SRB  input  data  file) 


srmwdt(600)  | SRM  flowrate  table 


Sine  of  adjusted  roll  angle 


startv(40,2)  Saved  values  of  state  for  jump  start 


Units  Source  I/O  Status  Common 

Block 


Ibs/sec  ainit 


staut(1  5) 


step(1 5) 


svxnod 


syradb 


system 


talfp 


talph(1  1 ,2) 


talyh(11 ,2) 


taumps(1  5) 


taut(1  5) 


tauw{1  5) 


tbiisp 


Stored  value  of  TAUT 


Integration  step  size 


Sine  of  colatitude 


Sine  of  launch  colatitude 


Sine  of  launch  colatitude 


Azimuth  angle  for  RTLS  mission  phase 


Saved  value  of  inclination  angle  for  AOA 
trajectory  constraint  for  variable  lY 
targeting 


Saved  value  of  descending  nodal  angle 
for  AOA  trajectory  constraint  for 
variable  lY  targeting 


Increment  in  forward  difference  to 
evaluate  partial  derivative  of  payoff 
and  constraints  with  respect  to  first 
stage  yaw  attitude  variations 


Name  of  the  vehicle  system  being 
simulated  (SHUTTLE,  STAGE15.  HLLV) 


Angle  of  attack  attitude  angle  table 


Independent  angle  of  attack  tables  for 
aerodynamic  tables 


independent  sideslip  tables  for 
aerodynamic  tables 


Rate  of  change  of  throttle  limit 


Throttle  level  table  for  thrust  tailoff 
option  (mpsflg=6) 


Time  increments  for  thrust  events 


Time  increment  for  weight  drop  event 


Time  to  begin  roll  maneuver 


Desired  sideslip  angle  attitude  angle 
table 


Specific  impulse  table 


Power  level  table  for  specific  impulse 


Variable 

Variable  Definition 

tdisp 

Time  to  begine  the  print  increment  from 
the  2nd  array  of  the  dispstep  array 
times 

temp 

Temporary  variable 

tempt 

Temporary  variable 

tendr 

Time  to  terminate  roll  maneuver 

thett 

Colatitude  of  launch  site 

time_jump(5) 

Time  of  jump  start 

tjet  wt 

Jettison  weight  table 

tlift 

Time  to  begin  tiltover  maneuver 

tmach 

Independent  mach  number  table  for  angle 
of  attack  and  sideslip  tables  (talfp  and 
tbeta) 

tne(6, 1 5) 

Array  which  defines  the  number  of 
engines  per  thrust  event 

tol 

Convergence  tolerance  on  scaled  total 
derivatives 

tr(5) 

Intermediate  constraint  absolute  time 

ttt 

Initial  time  from  jump  start  file  for 
first  stage  jump  start  option 

txmac(28) 

Independent  mach  number  table  for 
aerodynamic  tables 

tzero 

Time  of  simulation  initiation 

t_!iftoff 

Time  of  lift-off 

umf 

One  minus  the  earth  flattening 
coefficient 

vic(2) 

Circular  velocity  used  to  calculate 
oblate  earth  model  velocity  option 
(KCDRES  and/or  KCDPHI=14) 

Initial  condition  array  for  jump  start 

viv_sav(26) 

Saved  values  of  state  variable  for  first 
stage  restart 

wd{t5) 

Weight  dropped  during  weight  drop 
event 

wdlbs(  t 5) 

MPS  weight  flowrate 

wfuel(200) 

LH2  weight  overboard  tables 

wh2l 

LH2  mass  overboard  tables 

wibt(  t 5) 

Dynamic  parameter  weight  factor 

Ibs/sec  ainit 


kg 


kg 


Status  Common 
Block 


output  Global  disp 


ainit 

output 

Global 

agent 

ainit 

output 

Global 

print 

ainit 

output 

Global 

rest 

Local 


output  Global  aero 


output  Global  agent 


output  Global  t_liftoff 


output  Global  agen2 
input 


output  Global  vie 


output  Global  agen2 


input  Global 


n 


output  Global  agent 


output  Global  initp 


output  Global  tanks 


output  Global  tanks 


output  Global  rest 


Variable 

Variable  Definition 

Units 

Source 

I/O 

Status 

Common 

Block 

wint 

Initial  vehicle  weight 

kg 

ainit 

output 

Global 

olow 

wjet(1  5) 

Jettison  weight  per  thrust  event 

kg 

ainit 

output 

Global 

agent 

wIox(  1 00) 

LOX  tank  mass  overboard  table 

kg 

ainit 

output 

Global 

tanks 

wo1 

Liftoff  weight 

lbs 

Local 

woxi 

LOX  propellant  weight 

lbs 

ainit 

output 

Global 

tanks 

w rz 

Earth  spin  velocity  at  launch  latitude 

m/sec 

Local 

wtjet(  1 5) 

Jettison  weight  per  thrust  event 

lbs 

ainit 

output 

Global 

initp 

wtnl 

Name  of  weight  namelist 

Local 

wzero 

Initial  vehicle  weight 

lbs 

ainit 

output 

Global 

agen2 

w_marg(2) 

Guessed  value  of  weight  margin 

lbs 

ainit 

input 

Global 

multi 

w_margin 

Weight  margin  input 

lbs 

ainit 

input 

Global 

X 

X component  of  plumbline  position 
vector 

m 

dpir 

input 

Global 

forint 

xcp 

Center  of  pressure  table 

m 

Local 

xisp 

Specific  Impulse 

sec 

Local 

X je  xt 

Flag  indicating  that  payoff  will  be 
maximized  (=1)  or  minimized  (=-1) 

ainit 

output 

Global 

agen2 

Components  of  plumbline  inertial 
velocity  at  launch 

m/sec 

ainit 

output 

Global 

agen4 

Components  of  plumbline  position  vector 
at  launch 

m 

ainit 

output 

Global 

agen4 

xk1(2) 

Temporary  variable  use  with  calculation 
of  oblate  velocity  option 

ainit 

output 

Global 

Bi 

Temporary  variable  use  with  calculation 
of  oblate  velocity  option 

ainit 

output 

Global 

Bi 

Temporary  variable  use  with  calculation 
of  oblate  velocity  option 

ainit 

output 

Global 

m 

Temporary  variable  use  with  calculation 
of  oblate  velocity  option 

ainit 

output 

Global 

m 

xiamb(40.20) 

Partial  derivatives  of  payoff  and 
constraints  with  respect  to  the 
optimization  parameters 

ainit 

output 

Global 

auto  I 

xmass 

Vehicle  weight  from  jump  start  file 

kg 

Local 

xmaug 

Auxiliary  vehicle  mass 

kg 

athrev 

output 

Global 

agent 

ygp 

Longitudinal  component  of  gimbal  point 
of  engine  considered  out  by  using  the 
neng_out  variable  for  first  stage  jump 
start 

m 

Local 

Variable 


Variable  Definition 


Units 


ygpout 


zgp 


zgpout 


Longitudinal  component  of  gimba)  point  m 
of  engine  considered  out  by  using  the 
neng_out  variable  for  first  stage  jump 
start 

Normal  component  of  gimbal  point  of  m 
engine  considered  out  by  using  the 
neng_out  variable  for  first  stage  jump 
start 

Normal  component  of  gimbal  point  of  m 
engine  considered  out  by  using  the 
neng_out  variable  for  first  stage  jump 
start 
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3.12 


Subroutine  AMULG 


3.12.1  Purpose 

This  generic  subroutine  is  used  for  linear  interpolation.  The 
subroutine  can  be  used  to  interpolate  two  dependent  variables  for  a single 
independent  variable. 

3.12.2  Variable  Listing 

3.12.3  Subroutines  Called: 

None 


3.12.4  Calling 

Name 

ACNTRO 

ADER 

ADERl 

APRTN 

BDRII 


Subroutines: 

Function 

Interpolates  pitch  and  yaw  attitude  angles  during  min- 
H portion  of  simulation 

Calculates  the  time  independent  portion  of  the  equations 

of  motion  during  forward  integration 

CeJculates  the  time  dependent  portion  of  the  equations 

of  motion  during  forward  integration 

Prints  trajectory  block  output  and  files 

Calculates  components  of  the  equations  of  motion  for  the 

backward  trajectory 


3.12.5  Fortran  Listing 
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amulg 


Variable  Definition 


Temporary  variable 

Difference  between  current  independent 
variable  and  values  in  the  Independent 
table 

Index  defining  place  in  table  for  current 
interpolation 

m - 1 

m + 1 

Number  of  points  in  independent  table 

Independent  variable  table 

Independent  variable  table 

Dependent  variable  table  for  first 
parameter  in  argument  list 

Dependent  variable  table  for  first 
parameter  in  argument  list 

Dependent  variable  table  for  second 
parameter  in  argument  list 

Dependent  variable  table  for  second 
parameter  in  argument  list 
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3.13 


Subroutine  AMULG7 


3.13.1  Purpose 

This  generic  subroutine  is  used  for  linear  interpolation  of  seven 
dependent  variables  for  a single  independent  variable.  This  subroutine  is 
used  to  interpolate  the  state  variables  during  the  backward  integration. 

3.13.2  Variable  Listing 

3.13.3  Subroutines  Called: 

None 

3.13.4  Calling  Subroutines: 

Name  Function 

BDRII  Calculates  equations  of  motion  for  backward  integration 

3.13.5  Fortran  Listing 
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Variable 

Variable  Definition 

del 

Temporary  variable 

diff 

Difference  in  current  independent 
parameter  and  places  in  independent 
table 

m 

Index  place  in  table 

mm1 

m minus  1 

mp1 

m plus  1 

n 

Independent  variable  table 

X 

Independent  variable  table 

X t 

Independent  variable  table 

y 

Value  of  dependent  variable 

yt 

Dependent  variable  tables 
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3.14 


Subroutine  ANEWCH 


3.14.1  Purpose 

The  purpose  of  this  subroutine  is  to  evaluate  the  optimization  and 
restoration  equations  to  determine  the  required  changes  in  the  controlling 
parameters  and  variables.  Tests  for  convergence  are  also  made  in  this 
subroutine. 

3.14.2  Variable  Listing 

3.14.3  Subroutines  Called: 

Name  Function 

MATINV  Calculates  matrix  inverse 

3.14.4  Calling  Subroutines: 

Name  Function 

MASTRE  Controls  total  program  logic 

3.14.5  Fortran  Listing 
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anewch 


Variable 


Variable  Definition 


Launch  azimuth 


Launch  azimuth 


aerod(30,17)  Aerodynamic  coefficient  tables 


ah 


ahtb(210) 


betcon 


Previous  value  of  pitch  attitude  angle 


Previous  pitch  attitude  tables 


Logical  value  to  indicate  parameter 
convergence 


Case  number 


Critical  flowrate 


cfr(15) 


convk(15,3)  Conversion  criteria 


convp  Convergence  factor  for  parameters 


cp  Current  value  of  pitch  attitude 


cpotbl(210)  Pitch  attitude  table  during  min-H 


cptbl(30)  Booster  pitch  attitude  angle  table 


Current  value  of  yaw  attitude 


cyotbl(210)  Yaw  attitude  table  during  min-H 


cytbl(30) 


dbeta 


delcp 


delcy 


delts(7) 


demand 


dep 


dp2 


drho(1  9) 


Booster  yaw  attitude  angle  table 


Calculated  change  in  control  parameters  variabl 


Increment  for  pitch  attitude  angle 


Increment  for  yaw  attitude  angle 


Time  increment  used  to  build  pitch  and 
yaw  attitude  tables  during  min-H 


Logical  indicating  the  operational  mode 


Change  in  pitch  attitude  betwen 
iterations 


Change  in  yaw  attitude  betwen 
iterations 


Constraint  scale  factor 


Difference  between  current  and  desired 
constraint  values 


Source  I/O  Status  Common 

Block 


ainit  output  Global  agen2 
input 


ainit  output  Global  aerodi 
input 


Local 


bsaveg  input  Global  imp 


Local 


Global  agen2 


Global  xtra 


Global  convk 


Local 


Local 


Global  I contro 


anewch  output 
input 


anewch  output 
input 


anewch  output 
input 


anewch  output 
input 


Global  contro 


Local 


Global  contro 


Global  contro 


bsaveg 

input 

Global 

imp 

initial 

input 

Global 

ccc 

Local 


Local 


ainit  input  Global  auto 


anewch  output  Global  drho 
input 


anewch 


Variable 


Variable  Definition 


Units  Source  I/O  Status  Common 

Block 


ftbl(15) 


Stepsize  for  updating  time  when  sec 

incrementing  the  attitude  control  tables 
during  the  minh  phase 


Fraction  of  optimization  step  to  be  made 
when  updating  optimization  variables 


Thrust  table  for  main  proplusion  system  lbs 


gaptb(210,20  Partial  derivatives  of  constraints  with 
respect  to  pitch  attitude 


gnu(20)  Partial  derivative  of  payoff  with 

respect  to  constraints 


gsptb(210,20  Partial  derivatives  of  constraints  with 
respect  to  yaw  attitude 


Attitude  angle  increment 
maximumvalues 


kcdphi(20) 


kdb(40) 


kdt{15) 


Temporary  variable  for  nmax 


Denotes  the  thrust  event  from  which 
fuel  propellant  reserve  (FPR)  is 
calculated 


Number  of  constraints 


Index  for  control  table  points 


Jump  start  flag 


Indicator  for  positive  definite  values  of 
huu  matrix 


Terminal  constraint  selection  flag  array 


Array  for  control  parameter  flags 


Array  used  in  confunction  with  the  ipr 
option 


Index  for  time  and  pitch  and  yaw  control 
table  index 


Number  of  constriants  minus  one 


anewch  input  Global  drho 
output 


ainit  input  Global  mps 
output 


bsaveg  input  Global  imp 


anewch  output  Global  gnu 
input 


bsaveg  input  Global  imp 


input  Global  Iprint 
output 


input  Global  ipr 
output 


anewch  output  Global  bgen3 
input 


ainit  input  Global  agen3 


bsaveg  input  Global  agen3 


ainit  input  Global 


ainit  input  Global  auto 


ainit  input  Global  ipr 


anewch  output  Global  imp 
input 


anewch 


Variable 


Variable  Definition 


kwta(7) 

Flag  indicating  pitch  only  (1)  or  pitch 
and  yaw  (2)  attitude  control 

Aerodynamic  coefficient  tables 

Ip 

Index 

Iprint 

Print  flag 

Isb 

Internal  flag  to  indicate  partial 
derivative  runs 

msw 

Temporay  variable 

nbeta 

Index  used  for  booster  sideslip  attitude 
control 

nbgct(7) 

Index  indicating  beginning  of  min-H 
phases 

ncnrs(5) 

Number  of  constraints  at  restart 

nmax 

Iteration  counter 

nom1 

Index  indicating  first  iteration  pass 

nom2 

Flag  indicating  current  position  in 
optimization  steps 

nopar 

Number  of  optimization  parameters 

noss 

Number  of  constraints 

np{7) 

Number  of  points  in  attitude  tables 
during  min-H  phases 

nstage 

Index  number  of  current  stage 

nstg{15) 

Internal  index  which  relates  thrust 
event  to  stage  number 

ntau 

Index  used  in  conjunction  with  timmps 
to  indicate  a throttle  event  in  the 
booster  stage 

ntcn 

Number  of  intermediate  constraints 

ntin  V 

Index  to  denote  when  first  stage 
throttle  constraint  time  goes  negative 

ntnv 

Index  to  denote  when  throttle  value  goes 
below  limit  for  first  stage  throttle 
optimization 

nv 

Index 

I/O  Status  Common 
Block 


Local 


input  Global  agen3 


Local 


Local 


output  Global  Iprint 


output  Global  rest 


athrev  input  Global  fmxx 


ainit  input  Global  taulim 


ainit  input  Global  agen3 


ainit  input  Global  rest 


mast  re  | output  Global  agen3 


input  Global  bgen3 
output 


input  Global  rest 
output 


mastre  input  Global  bgen3 
output 


ainit  input  Global  bgen3 


athrev  output  Global  mult 
input 


ainit  input  Global  mult 


input  Global  taulim 
output 


ainit  | input  | Global  rest 


Local 
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anewch 


Variable 

Variable  Definition 

par 

Temporary  variable 

pfkg 

Conversion  for  pounds  to  kilograms 

phite(20) 

Values  of  payoff  and  constraints 

predp 

Predicted  value  of  payoff  function 

pstr(20) 

Difference  between  current  and  desired 
constraint  values 

qy 

Optimization  step  size  control  constant 

si 

Previous  value  of  yaw  attitude  angle 

sitb(210) 

Previous  yaw  attitude  table  during 
min-H 

spoa 

Specific  impulse  divided  by  acceleration 
limit 

srmprp 

SRM  propellant  weight 

s wibt 

Weighting  array  used  in  normalizing  the 

taut(1  5) 


tbias(6) 


temp 


tempi 


timmps(1  5) 


tne(6,15) 


tobl(210) 


tol 


Units  Source  I/O  Status  Common 

Block 


varlabl  afornd  input  Global 


variabl  anewch  output  Global  Iprint 
input 


partial  derivatives 


Time  from  lift-off 


Time  increments  for  thrust  events 


Bias  between  simulated  time  and 
reported  time  (used  for  branch  option) 


Temporary  variable 


Temporary  variable 


Time  table  for  MRS  motor 


Time  for  throttle  event  in  first  stage  sec 


Array  which  defines  the  number  of 
engines  per  thrust  event 


Independent  time  table  used  for  attitude 
tables  during  min-H 


Convergence  tolerance  on  scaled  total 
derivatives 


Intermediate  constraint  absolute  time  sec 


Start  times  to  begin  min-H  phases 


Tolerance  on  steps  in  taut 


First  column  of  matrix  wiss  (l-phi-psi 
for  control  variables) 


ainit  input  Global  Iprint 


Local 


bsaveg  input  Global  imp 


athrev  input  Global  fmxx 


sec  dpir 


Global  forint 


anewch  input  Global  ageni 
output 


athrev  input  Global  mu 


input  Global  mps 
output 


input  Global  taulim 
output 


input  Global  ageni 


anewch  output  Global  contro 


ainit  input  Global  Iprint 


I 


anewch  output  Global  rest 


bsaveg  input  Global  imp 
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anewch 


Variable  Variable  Definition  Units  Source  I/O  Status  Common 

Block 

wass  l-psi-psi  for  control  variables  Local 

wd(15)  Weight  dropped  during  weight  drop  kg  ainit  input  Global  agent 


event 

wds 

Matrix  product  of  constraint 
dispersions  and  weighting 

Local 

wg 

Mass  at  acceleration  limit 

kg 

athrev 

input 

Global 

fmxx 

wgnu 

Change  in  optimization  parameter  with 
respect  to  control  parameters 

anewch 

output 

input 

Global 

drho 

wibt(1  5) 

Dynamic  parameter  weight  factor 

anewch 

input 

output 

Global 

rest 

wipp 

Change  in  optimization  (payoff) 
parameter  as  a function  of  control 
variables 

Local 

wippb 

Change  in  optimization  parameter  with 

variabl 

anewch 

output 

Global 

drho 

wipsb 


wiss{20,20) 


wjet(1  5) 


respect  to  control  variables 


Total  l-phi-psi  vector 


Weighting  matrix 


Total  I-psi-psi  vector 


Jettison  weight  per  thrust  event 


Liftoff  weight 


Total  amount  of  usable  propellant 


Temporary  variable 


Initial  vehicle  weight 


w_margin(2)  Required  value  of  weight  margin  at  the 
end  of  selected  stage 


X component  of  plumbline  position 
vector 


Flag  Indicating  that  payoff  will  be 
maximized  (=1)  or  minimized  (=-1) 


Decimal  fraction  of  constraint  error  to 


xlamb{40,20)  Partial  derivatives  of  payoff  and 
constraints  with  respect  to  the 
optimization  parameters 


xibgnu 


xibwds 


xmd(15) 


Matrix  product 


Matrix  product 


Propellant  flowrate 


bsaveg  input  Global  bake 


ainit  input  Global  agent 


anewch  output  Global  agen2 
input 


anewch  output  Global  multi 
input 


dpir  input  Global  forint 


ainit  input  Global  agen2 


bkend  input  Global  auto 


kg/sec  ainit  input  Global  xtra 
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WGNU=WGNU-GNU ( I ) *WIPSB ( I ) 


CN  ro  -C 

<M  (N  <N 
fN  fN  (N 


IF (DEMAND)  then  IF (DEMAND)  then 


WRITE (31, *) 'GOING  FALSE  ON  AD  DBETA  ' , AD, DBETA (NV) 


DELCP-(GAPTB(JJ,  D+TEMP]  *XJEXT  60  CONTINUE 

HUMAX  ( 1)  ==DMAX1  ( ABS  (DELCP^TEMPl ) , HUMAX  ( 1 ) ) 

DELCP  = DELCP*E1 -TEMPI  WRITE  ( 3 1 ,*)' BOTTOM  OF  ANEWCH  NOPAP.  ^NOPAR 
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KV=KV+1  WRITEU3)  HUMAX  ( 1 ) ,HUMAX(2)  ,BETCON,KAT 

WRITE!*, 61}  HUMAX (1) , HUMAX (2)  ,BETCON,] 


3.15 


Subroutine  APRTN 


3.15.1  Purpose 

The  purpose  of  this  subroutine  is  to  compute  output  parameters, 
print  output  data,  and  write  output  hies  for  various  output  tables. 

3.15.2  Variable  Listing 


3.15.3  Subroutines  Called: 

Name  Function 

AMULG  Linear  intepolation  routine 

TRNSFM  Multiplies  3x3  matrix  times  vector 


3.15.4  Calling 

Name 

AFORUN 

ATHREV 

ATILT 

AJUMP 

ALIFT 

AQMAX 

ATHRO 

AWDEV 

AXPRT 

GLIMT 


Subroutines: 

Function 

Controls  logic  for  forward  trajectory  and  calls 
integration  routine 

Controls  thrust  event  logic  during  forward  trajectory 

Controls  tiltover  maneuver 

Controls  1st  stage  jump  start  logic 

Controls  liftoff  based  on  thrust-to-weight 

Controls  maximum  dynamic  pressure  printout 

Controls  acceleration  limit  when  using  constant  throttle 

Controls  weight  drop  printout 

Controls  printout  based  on  print  interval 

Controls  acceleration  limit  when  using  variable  throttle 


3.15.5  Fortran  Listing 
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Variable 


Variable  Definition 


Variable 

Variable  Definition 

Units 

Source 

I/O 

Status 

Common 

Block 

a(3,3) 

Tranformation  matrix  from  equatorial 
to  plumbline  coordinate  systems 

aforun 

input 

Global 

agen2 

a1 

Semi-major  axis  of  current  position 

m 

Local 

aa 

Launch  azimuth 

rad 

ainit 

input 

Global 

agen2 

aeronm 

Name  of  aerodynamic  data  base 

Local 

alt 

Angle  of  attack 

rad 

ader 

input 

Global 

agen2 

ally 

Sideslip  angle 

rad 

ader 

input 

Global 

agen2 

alongo 

Launch  longitude 

rad 

ainit 

input 

Global 

alat 

alt 

Altitude 

m 

ader 

input 

Global 

agen2 

altp 

Current  altitude 

m 

Local 

amx 

Aerodynamic  moment  about  vehicle  yaw 
axis 

nt-m 

ader 

input 

Global 

agenS 

amy 

Aerodynamic  moment  about  vehicle  roll 
axis 

nt-m 

ader 

Input 

Global 

agenS 

amz 

Aerodynamic  moment  about  vehicle 
pitch  axis 

nt-m 

ader 

input 

Global 

agenS 

apogee 

Magnitude  of  inertial  velocity 

m/sec 

output 

input 

Global 

af  prn 

asto(4,67) 

Storage  array  for  weight  summary 
table 

lbs 

ainit 

input 

Global 

astor 

at 

Transpose  of  A matrix 

Local 

I 

atmosn 

Name  of  atmospheric  routine  being  used 

atmosph 

input 

Global 

ardc 

azi 

Inertial  azimuth 

rad 

aprtn 

output 

input 

Global 

afprn 

azr 

Wind  relative  azimuth 

rad 

aprtn 

output 

input 

Global 

afprn 

azre 

Wind  relative  azimuth 

rad 

aprtn 

output 

input 

Global 

' ' I 

afprn 

azw 

Wind  azimuth 

rad 

ader 

input 

Global 

agenS 

bgenow 

Eccentric  anomaly  of  cuurent  radius 
vector 

Local 

bgethn 

Eccentric  anomaly  of  earth  radius 
vector 

Local 

cl 

Angular  momentum 

m^2/se 

aprtn 

Global 

afprn 

c3 

Twice  the  energy 

m^2/se 

aprtn 

output 

input 

Global 

afprn 

ca 

Cosine  of  launch  azimuth 

aforun 

input 

Global 

agen2 

Variable 

Variable  Definition 

case 

Case  number 

cbgenw 

Cosine  of  eccentric  anomaly  of  radius 
vector 

cbgetn 

Cosine  of  eccentric  anomaly  of  earth 
radius  vector 

cchip 

Cosine  of  pitch  attitude  angle 

cchir 

Cosine  of  roll  attitude  angle 

cchiy 

Cosine  of  yaw  attitude  angle 

cetanw 

Cosine  of  Eccentric  anomaly 

cetatn 

Cosine  of  eccentric  anomaly  of  radius 
vector 

chip 

Pitch  attitude  angle 

chir 

Roll  attitude  angle 

chiy 

Yaw  attitude  angle 

cine 

Cosine  of  inclination  angle 

emue 

Gravitiational  constant 

ephi 

Cosine  of  longitude 

cter1 

Matrix  of  position,  velocity,  and 
aceleration  in  equatorial  coordinate 
system 

cter2 

Temporary  variable 

cth 

Cosine  of  colatitude 

cthi 

Cosine  of  launch  colatitude 

d 

Direction  cosine  matrix 

ddwet 

Second  derivative  of  wet  matrix 

deibge 

Delta  eccentric  anomaly 

deleta 

Increment  between  eccentric  anomalies 

dlphi 

Delta  inertial  longitude  between  current 
position  and  impact  point 

ditl 

Time  bias 

drag 

Aerodynamic  drag  force 

dti 

Delta  time  between  current  position  and 
impact  point 

dtx 

Temporary  variable 

rad  aderl 


rad  aderl 


m^3/se  ainit 


newton  ader 


Status  Common 
Block 


output  Global  agen2 


Local 


aderl 

Input 

Global 

agen2 

aderl 

input 

Global 

agen2 

aderl 

Input 

Global 

agen2 

output  Global  agen2 
input 


output  Global  agen2 
input 


output  Global  agen2 
input 


Local 


input  Global  const 


Local 


aprtn 

output 

input 

Global 

agen2 

ainit 

input 

Global 

agen2 

Local 


input  Global  aprint 


Local 
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Variable 


dummy 


dvar(25) 


fabt(4) 


Variable  Definition 


Temporary  variable 


Temporary  variable 


Temporary  variable 


Time  difference  between  GRR  and  launch  sec 
time 


Temporary  variable 


Storage  array  for  the  state  derivatives 


First  derivative  of  wet  matrix 


Vertical  component  of  thrust  moment 


Source  I/O  Status  Common 

Block 


Eccentricity  of  current  position 


Inboard  elevon  angle 


Outboard  elevon  angle 


Eccentric  anomaly 


Eccentric  anomaly  of  earth  radius  in 
projected  orbit 


External  tank  inert  weight 


Aerodynamic  axial  force 


Base  axail  force 


Aerodynamic  normal  force 


Total  normal  force 


Total  side  force 


Total  vehicle  sensed  acceleration 


ader  input  Global  forint 
output 


ader  input  Global  garbge 


input  Global  garbge 


input  Global  garbge 


input  Global  aprint 


input  Global  aprint 


newton 


newton 


newton 


newton 


newton 


Output  name 


Feet  to  meter  conversion 


Inertial  flight  path  angle 


Flight  path  angle  with  respect  to  earth 
relative  velocity 


Flight  path  angle  with  respect  to  earth 
relative  velocity 


Gravitational  constant  (9.80665  m/sec)  m/sec' 


Third  gravitational  harmonic 


Height  of  LH2  propellant 


input  Global  agen2 


input  Global 


input  Global 


aprint 


agen2 


input  Global  agen5 


input  Global  agenS 


output  Global  agenS 


input  Global  const 


input  Global  const 
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Variable 


hatmos 


kpage 


moments 


name(1  28) 


nstage 


Variable  Definition 


Adjusted  altitude  for  base  force  table 
Interpolation 


Character  string  for  output 


Altitude  used  for  atmospheric  lookup 


Altitude  bias 


Storage  array  for  headings  in  printout 


Not  used 


Height  of  LOX  propellant 


Aerodynamic  heating  rate 


Atmospheric  routine  indicator 


Temporary  variable  for  nmax 


Page  number  index 


Flag  specifying  propulsion  summary 
output  required 


Total  lift  force 


Line  counter  for  printout 


Print  flag 


Internal  flag  to  indicate  partial 
derivative  runs 


Character  indicating  name  of  mission 


Character  variable  representing  the 
name  of  the  month  used  for  range 
reference  atmosphere  calculations 


Output  name 


Parameter  names  used  in  print  output 


Iteration  counter 


Index  for  event 


Index  number  of  current  stage 


Orbiter  liftoff  weight 


Earth’s  spin  rate 


Orbiter/external  tank  shear  force 


Specific  impulse  of  engine  types 


Source  I/O  Status  Common 

Block 


output  Global  ardc 


newton  ader 


input  Global  aprint 


output  Global  agen3 
input 


output  Global  Iprint 


output  Global  rest 


output  Global  agen3 


atmosph  input  Global  atmos 


output  Global  name 


mastre  input  Global  agen3 


rad/sec  ainit 


athrev  input  Global  mult 


athrev  input  Global  olow 


input  Global  const 


input  Global  pdome 


input  Global  output 
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Variable 


outth(6) 


outtv(6) 


outwd(6) 


pat(14) 


pdome 


phimp 


prop(6) 


psffm 


qpenal 


Variable  Definition 


Actual  thrust  of  engine  types 


Vacuum  thrust  of  engine  types 


Flowrate  of  engine  types 


Longitude 


Input/output  array  for  atmospheric 
parameters 


LOX  dome  pressure 


Perigee  altitude 


Conversion  for  pounds  to  kilograms 


Conversion  from  pounds  to  newtons 


Longitude 


Longitude  of  impact  point 


Geocentric  latitude  of  current  position 


Roll  attitude  angle  of  alternate 
coordinate  system 


Pi  constant  (3.14159265) 


Logical  variable  used  to  indicate  plot 
output  file  is  to  be  generated 


Propellant  weight  for  each  engine  type 


Conversion  for  pounds  per  square  feet 
from  newtons  per  square  meter 


Yaw  attitude  angle  of  alternate 
coordinate  system 


Dynamic  pressure 


Value  of  dynamic  pressure  penalty 
function 


Output  name 


Radius  from  earth's  center 


Propellant  mixture  ratio 


Earth's  radius 


Saved  value  of  earth  radius 


Reynold’s  number 


Name  of  event  used  on  output 


Range  angle 


kg/lbs  ainit 


Ibs/nt 


I/O  Status  Common 
Block 


input  Global  output 


input  Global  output 


input  Global  output 


output  Global  afprn 
input 


input  Global  ardc 


input  Global  pdome 


input  Global  const 


input  Global  const 


output  Global  afprn 


input  Global  const 


output  Global  plot 


input  Global  agen1 


input  Global  const 


output  Global  agen2 
input 


Variable 

Variable  Definition 

Units 

Source 

I/O 

Status 

Common 

Block 

rngo 

Ground  range 

m 

output 

input 

Global 

afprn 

rsth 

Temporary  variable 

m 

Local 

sa 

Sine  of  launch  azimuth 

aforun 

input 

Global 

agen2 

schip 

Sine  of  pitch  attitude  angle 

aderl 

input 

Global 

agen2 

schir 

Sine  of  roll  attitude  angle 

ader1 

input 

Global 

agen2 

schiy 

Sine  of  yaw  attitude  angle 

aderl 

input 

Global 

agen2 

semach 

Mach  number  based  on  using  earth 
relative  velocity 

input 

Global 

aprint 

side 

Aerodynamic  side  force 

newton 

ader 

input 

Global 

agenS 

sinrho 

Sine  of  angle  between  vehicle  centerline 
and  center  of  gravity  location 

ader 

input 

Global 

garbge 

srmet 

SRM/External  tank  shear  force 

lbs 

input 

Global 

pdome 

s rm  i rt 

Magnitude  of  inertial  velocity 

m/sec 

output 

input 

Global 

afprn 

sth 

Sine  of  colatitude 

output 

input 

Global 

agen2 

sthi 

Sine  of  launch  colatitude 

input 

Global 

agen2 

su 

Y component  of  relative  velocity  vector 

m/sec 

ader 

input 

Global 

agen2 

sue 

Y component  of  earth  relative  velocity 
vector 

m/sec 

input 

Global 

reyno 

sv 

Z component  of  relative  velocity  vector 

m/sec 

ader 

input 

Global 

agen2 

sve 

Z component  of  earth  relative  velocity 
vector 

m/sec 

input 

Global 

reyno 

s w 

X component  of  relative  velocity  vector 

m/sec 

ader 

input 

Global 

agen2 

swe 

X component  of  earth  relative  velocity 
vector 

m/sec 

ader 

input 

Global 

reyno 

t 

Time  from  lift-off 

sec 

dpir 

output 

Input 

Globa! 

forint 

tau 

Thrust  throttle  value 

ader 

input 

Global 

garbge 

tbias(6) 

Bias  between  simulated  time  and 
reported  time  (used  for  branch  option) 

sec 

athrev 

input 

Global 

mult 

tcl{6) 

Longitudinal  component  of  thrust  vector 
for  each  system 

newton 

ader 

input 

Global 

tc  1 

theri 

Pitch  attitude  angle  In  alternate 
coordinate  system 

rad 

Local 

thet 

Geocentric  latitude 

rad 

Local 

theta 

Geocentric  latitude  of  subvehicle  point 

deg 

aprtn 

output 

Global 

afprn 

theta 


aprtn 


output 


Global 


afprn 


Variable 


Variable  Definition 


Source  I/O  Status  Common 

Block 


Geodetic  latitude  of  subvehicle  point  deg  aprtn 


Latitude  of  impact  point 


Thrust  minus  axial  force 


Colatitude  angle  of  predicted  impact 
point 


Time  to  begin  tillover  maneuver 


Lateral  component  of  thrust  vector  for  nt 
each  system 


Yaw  component  of  total  moment  in 
vehicle  system 


Roll  component  of  total  moment  in 
vehicle  system 


Pitch  component  of  total  moment  in 
vehicle  system 


Yaw  component  of  thrust  moment  in 
vehicle  system 


Roll  component  of  thrust  moment  in 
vehicle  system 


Z component  of  thrust  moment 


Vertical  component  of  thrust  vector  for  sec  ader 
each  system 


Vertical  component  of  thrust  of  1st  newton  ader 

equivalent  engine 


Vertical  component  of  thrust  of  2nd  newton  ader 
equivalent  engine 


Vertical  component  of  moment  balanced  newton  ader 
thrust 


Longitudinal  component  of  thrust  of  1st  newton  ader 
equivalent  engine 


Axial  thrust  component  for  second 
equivalent  engine 


Longitudinal  component  of  moment 
balanced  thrust 


Lateral  component  of  moment  balanced  newton 
thrust 


Y component  of  plumbline  inertial 
velocity  vector 


output  Global  afprn 
input 


input  Global  agenS 


output  Global  agenS 
input 


input  Global  tcl 


input  Global  garbge 


input  Global  garbge 


Input  Global  agenS 


input  Global  garbge 


newton  ader  input  Global  garbge 


input  Global  agenS 


input  Global  agenS 


m/sec  dpir  input  Global  forint 


Variable 


wet 


wh2l 


wh2t 


wi  nt 


wl  oxt 


wmag 


word(  1 60) 


wordrs 


wox  I 


woxt 


w t 


wtot 


Variable  Definition 


Temporary  variable  in  moment  balance 
calculation  (1  ./sqrt{udxdy2)) 


One  minus  the  earth  flattening 
coefficient 


Z component  of  plumbline  inertial 
velocity  vector 


Magnitude  of  earth  relative  velocity 


Inertial  velocity 


Sine  of  relative  azimuth 


Magnitude  of  inertial  velocity 


Magnitude  of  relative  velocity 


Cosine  of  relative  azimuth 


Magnitude  of  inertial  velocity 


X component  of  plumbline  inertial 
velocity  vector 


m/sec  dpir 


m/sec  aprtn 


Source  I/O  Status  Common 

Block 


input  Global  garbge 


input  Global  agen2 


input  Global  forint 


output  Global  reyno 
input 


output  Global  afprn 
input 


Local 


Global  afprn 


output  Global  agen2 
input 


Local 


output  Global  afprn 
input 


m/sec  input  Global  forint 


m/sec  ader 


kg 


lbs 


kg 


lbs 


m/sec  ader 


Rotation  matrix  of  wt  angle  about  y axis 


LH2  mass  overboard  tables 


LH2  fuel  mass 


Initial  vehicle  weight 


not  used 


Wind  speed  magnitude 


Storage  array  for  output  parameters  variabi  aprtn 


Storage  array  for  relative  coordinates 


LOX  propellant  weight 


LOX  fuel  mass 


Product  of  earth  spin  rate  and  time 


Total  vehicle  weight 


Local 


input  I Global  tanks 


Local 


output  Global  olow 


Local 


input  I Global  agenS 


output  Global  name 
input 


Local 


input  Global  tanks 


Local 


Local 


Local 


x 

X component  of  plumbline  position 
vector 

m 

dpir 

input 

Global 

forint 

xcg 

Vertical  component  of  center  of  gravity 

m 

aderl 

input 

Global 

garbge 

xddec 


xdds 


Relative  acceleration  vector 


Acceleration  vector 
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aprtn 


Variable 

Variable  Definition 

Units 

Source 

I/O 

xdec 

Relative  velocity  vector 

xds 

Inertial  velocity  vector 

m/sec 

xec 

Relative  position  vector 

m 

xinc 

Inclination  angle 

rad 

aprtn 

output 

input 

X m 

Current  vehicle  mass 

kg 

aprtn 

output 

xmach 

Mach  number 

ader 

input 

xmaug 

Auxiliary  vehicle  mass 

kg 

athrev 

input 

xmiad 

Continuous  portion  of  vehicle  mass 

kg 

ader1 

input 

xnod 

Angle  between  launch  longitude  and 
descending  node 

rad 

aprtn 

output 

xs 

Position  vector 

m 

Y component  of  plumbline  position 
vector 

m 

dpir 

input 

ycg 

Longitudinal  component  of  centerof 
gravity 

m 

aderl 

input 

yring 

External  tank  Y-ring  pressure 

psi 

ader 

input 

z 

Z component  of  plumbline  position 
vector 

m 

dpir 

input 

zap(18) 

Additional  Integrated  variables 

variabi 

desolv 

input 

Status  Common 
Block 


Global  afprn 


Global  agen2 


Global  agen2 


Global  agent 


Global  agen2 


Global  afprn 


Global  forint 


Global  garbge 


Global  pdome 


Global  I forint 


Global  forint 
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3.16 


Subroutine  AREAIN 


3.16.1  Purpose 


The  purpose  of  this  subroutine  is  to  display  and  activate  user  options 
pertaining  to  execution,  termination,  selecting  namelist  data,  writing  plot 
and  table  output  files,  and  providing  a printout  menu. 

3.16.2  Variable  Listing 


3.16.3  Subroutines  Called: 


Name 

COPLDF 

GOUT 

TERMINATE 


Emiction 

Writes  a list  directed  file 

Displays  character  strings  to  the  screen 

Terminates  execution  of  program 


3.16.4  Calling  Subroutines: 

Name  Function 

MENU  Controls  program  execution 


3.16.5  Fortran  Listing 
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areain 


SUBROUTINE  AREAIN 


PRINTOUT  MENU 


A 


3.17  Subroutine  ATHREV 


3.17.1  Purpose 

The  purpose  of  this  subroutine  is  to  control  the  thrust  event 
logic  during  the  forward  trajectory  integration.  Parameters  for  each  thrust 
event,  as  well  as  stage  changes,  are  defined  based  on  input  or  calculated. 


3.17.2  Variable  Listing 


3.17.3  Subroutines  Called: 


Name 

ADER 

ADERl 

AEOSR 

APRTN 

FIND 

FUNISP 

RTMRK 


Function 

Calculates  the  time  independent  portion  of  the  equations 

of  motion  during  forward  integration 

Calculates  the  time  dependent  portion  of  the  equations 

of  motion  during  forward  integration 

Stores  state  variables  during  forward  integration 

Prints  trajectory  block  output  and  files 

Calculates  attitude  polynomials 

Calculates  specific  impulse  based  on  throttle  level 

Causes  termination  of  integration 


3.17.4  Calling  Subroutines: 

Name  Function 

AFORUN  Controls  logic  for  forward  trajectory  and  calls 

integration  routine 
DPIR  Integration  routine 

3.17.5  Fortran  Listing 
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Variable 

Variable  Definition 

Units 

Source 

I/O 

Status 

Common 

Block 

ane 

Not  used 

Local 

ap(10) 

Coefficients  for  booster  pitch  attitude 

atilt 

input 

Global 

bodyf 

api(1  0,2) 

Coefficients  for  booster  pitch  attitude 

atilt 

output 

Global 

body 

astor(4,67) 

Storage  array  for  weight  output  table 

lbs 

ainit 

input 

Global 

astor 

atbdwt(1  5,2) 

Weight  loss  table  for  center  of  gravity 
tables 

kg 

ainit 

input  j 

Global 

body 

atxcg(1 5,2) 

Storage  array  for  vertical  center  of 
gravity  tables 

m 

ainit 

input 

Global 

body 

atycg(1  5.2) 

Storage  array  for  longitudinal  center  of 
gravity  table 

m 

ainit 

input 

Global 

body 

axlen(2) 

Aerodynamic  reference  length 

m 

input 

Global 

body 

axref(2) 

Vertical  aerodynamic  moment  reference 
point 

m 

input 

Global 

body 

ay(10) 

Coefficients  for  booster  yaw  attitude 

atilt 

input 

Global 

bodyf 

ayi(10,2) 

Coefficients  for  booster  yaw  attitude 

atilt 

output 

Global 

body 

ayref(2) 

Longitudinal  aerodynamic  moment 
reference  point 

m 

aint 

input 

Global 

body 

azre 

Wind  relative  azimuth 

rad 

aprtn 

input 

Global 

afprn 

branch_point 

Flag  indicating  branch  point  thrust  event 

Local 

cchip 

Cosine  of  pitch  attitude  angle 

aderl 

output 

Global 

agen2 

cchiy 

Cosine  of  yaw  attitude  angle 

aderl 

input 

Global 

agen2 

cfr(15) 

Critical  flowrate 

kg/sec 

ainit 

input 

Global 

xtra 

char_vel(5) 

Characteristic  velocity 

m/sec 

ainit 

output 

Global 

multi 

chip 

Pitch  attitude  angle 

rad 

aderl 

input 

Global 

agen2 

chisav 

Saved  value  of  chip 

rad 

aderl 

input 

Global 

agen5 

chiy 

Yaw  attitude  angle 

rad 

aderl 

input 

Global 

agen2 

chvel 

Characteristic  velocity 

m/sec 

mastre 

output 

Global 

agent 

cisp(15) 

MPS  specific  impulse 

sec 

ainit 

input 

Global 

xtra 

cptbl(30) 

Booster  pitch  attitude  angle  table 

rad 

anewch 

output 

Global 

contro 

cytbl(30) 

Booster  yaw  attitude  angle  table 

rad 

athrev 

output 

Global 

contro 

deltav 

Delta  velocity  required 

m/sec 

Local 

delx(7) 

State  variable  storage  during  partial 
evaluation 

athrev 

output 

i Global 

delxd(1  5,7) 

State  derivative  storage  at  thrust 
events 

athrev 

output 

Global 

agen2 

delxdb(7) 

State  derivative  storage  for  branch 
trajectory 

athrev 

output 

^ Global 

deixdb 

at  h rev 


Variable 

Variable  Definition 

Units 

Source 

delxdr(7,5) 

State  derivative  storage  at  desired 
intermediate  point 

athrev 

delxh(5) 

Storage  array  for  stagnation  heating 
rate  at  intermediate  constraint  thrust 
events 

athrev 

dvar(25) 

Storage  array  for  the  state  derivatives 

ader 

dvars{1  3) 

Derivative  storage  at  the  thrust  events 

athrev 

dvisp 

Specific  impulse  of  upper  stage 

sec 

engdat(8,1  5) 

Engine  data  matrix 

ainit 

engines(1 5,1 

Index  used  to  indicate  which  engines  are 
being  simulated  for  a given  thrust  event 

ainit 

etfuel 

Propellent  weight  in  external  tank 

kg 

f(15) 

MPS  engine  thrust 

newton 

fmxx 

Temporary  variable  used  for  calculation 
of  partial  derivatives  for  tank 
constraints 

athrev 

foms(1  5) 

Thrust  table  for  orbit  maneuver  system 

lbs 

ainit 

frcs(15) 

Thrust  table  for  rocket  control  system 

lbs 

ainit 

glim(15) 

Acceleration  limit 

g's 

ainit 

glimit 

Logical  variable  indicating  aceleration 
limit  has  been  achieved 

atilt(gli 

gzero 

Gravitational  constant  (9.80665  m/sec) 

m/sec^ 

ainit 

hmx 

Maximum  step  size 

sec 

hnm 

Nominal  step  size 

sec 

ibranch 

Flag  indicating  the  terminal  thrust  event 
of  the  first  trajectory  of  the  branch 
trajectory 

iconsw 

Flag  to  indicate  termination  of  SRB 
moment  balance 

ainit 

ipoly 

Flag  indicating  number  of  polynominals 
in  booster  stage 

amit 

ipr 

Denotes  the  thrust  event  from  which 
fuel  propellant  reserve  (FPR)  is 
calculated 

iprop(6) 

Propulsion  cutoff  flags  (stage 
dependent) 

ainit 

iprp 

Index  (ipr-1) 

I/O 

Status 

Common 

Block 

output 

Global 

agen2 

output 

Global 

deixh 

input 

output 

Global 

forint 

output 

input 

Global 

agen2 

Local 

input 

Global 

ageni 

input 

Global 

engines 

Local 

input 

Global 

X t ra 

output 

Global 

fmxx 

input 

Global 

omsrcs 

input 

Global 

omsrcs 

input 

Global 

mps 

output 

Global 

mps 

input 

Global 

const 

output 

Global 

forint 

output 

Global 

forint 

output 

Global 

mult 

output 

Global 

agen3 

input 

Global 

agen3 

input 

output 

Global 

■ 

input 

Global 

ipr 

Local 

athrev 


Variable  Definition 
Print  flag 

Flag  Indicating  thrust  event  where 
shuttle  rtls-aoa  point  is  located 

Flag  indicating  FPR  calculations 

Return  to  launch  flag 

Index 

Index  used  for  jump  start  for  branch 
trajectory 

Thrust  event  index  number 
Index  for  SSME  throttle  table 
Throttle  Index 

Index  for  weight  drop  events 
Index 

Index  for  use  with  branch  trajectory 
option 

Thrust  event  number 

Index  indicating  number  of  times  the 
acceleration  limit  has  been  reached 
within  a given  thrust  event 

Saved  value  of  jthrot 

Jump  start  flag 

Saved  value  of  jump 

Array  for  intermediate  constraint 
function  code 

Attitude  control  table  Index 

Array  for  control  parameter  flags 

Order  of  booster  pitch  attitude 
polynomial 

Order  of  pitch  attitude  polynomial 

Order  of  booster  pitch  attitude 
polynomials 

Booster  attitude  indicator 

Order  of  booster  yaw  attitude 
polynomial 


aforun  input  Global  agen3 


ainit  input  Global  istar 


output  Global  j t 
input 


atilt(gli  output  Global  mps 


atilt  output  Global  jthrot_s 

ave 


ainit  output  Global  agen3 


athrev  output  Global  jumpst 


ainit  input  Global  enput 


athrev  output  Global  agen3 
input 


ainit  output  Global  auto 


athrev  output  Global  kp 


ainit  input  Global  body 


athrev  output  Global  agen3 


athrev  output  Global  kp 
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athrev 


Variable 

Variable  Definition 

ky1 

Order  of  yaw  attitude  polynomial 

kyi(2) 

Order  of  booster  yaw  attitude 
polynomials 

Isb 

Internal  flag  to  indicate  partial 
derivative  runs 

Istg 

Aerodynamic  coefficient  flag  to 
distinguish  stages 

lstge(1  5) 

Aerodynamic  coefficient  flag  to 
distinguish  stages 

I V rst 

Flag  indicating  branch  point 

m 

Index 

m 1 

Index  to  indicate  place  in  aerodynamic 
tables 

ml  1 

Previous  index  for  eleven  lookup  in 
forward  trajectory 

ml  5 

Pointer  index  for  roll  angle  (sigma) 
lookup 

ml  6 

Pointer  index  for  pitch  and  yaw  angle 
(theta  & phi)  lookup 

m 1 7 

Pointer  index  for  base  force  tables 

m 1 8 

Pointer  index  for  continuum  and  free 
molecular  aerodynamic  data 

m 1 9 

Previous  index  for  continuum  and  free 
molecular  aerodynamic  data 

m2 

Previous  index  for  aerodynamic 
coefficient  tables  for  forward 
trajectory 

m21 

Pointer  index  for  aerodynamic 
coefficient  increments 

m22 

Not  used 

m23 

Pointer  index  for  base  force  coefficent 
tables 

m24 

Pointer  index  for  base  force  tables 

m30 

Previous  index  for  base  force  increment 
tables 

m3 1 

Previous  index  for  base  force  increment 
tables 

m5 

Pointer  index  for  center  of  gravity 
lookup 

I/O 

Status 

Common 

Block 

Local 

input 

Global 

body 

output 

Global 

rest 

Local 

input 

Global 

agen3 

Local 

Local 

output 

Global 

bodyf 

output 

Global 

elevon 

output 

Global 

ricont 

output 

Global 

ricont 

output 

Global 

m20 

output 

Global 

vaero 

output 

Global 

vaero 

output 

Global 

bodyf 

output 

Global 

m20 

output 

Global 

m20 

output 

Global 

m20 

output 

Global 

m20 

output 

Global 

delfab 

output 

Global 

delfab 

output 

Global 

bodyf 

m5  1 


Pointer  index  for  throttle  level  table 


output  Global 


body! 


athrev 


Variable 

Variable  Definition 

m6 

Previous  index  for  center  of  gravity 
lookup 

m7 

Pointer  index  for  wind  table  lookup 

m8 

Pointer  array  for  base  axial  force  table 

m9 

Previous  index  for  base  axial  force 
table 

mcon(7) 

Not  used 

minh 

Flag  to  indicate  thrust  event  which 
begins  min-h  attitude  optimization 

mision 

Character  indicating  name  of  mission 

mission(2) 

Character  indicating  name  of  mission 

mibm  1 

Pointer  index  for  LBM  thrust  and 
flowrate  interpolation  in  forward 
integration 

mlbnn2 

not  used 

mombal 

Flag  to  specify  the  use  of  moment 
balance  equations 

mpsi 

Not  used 

mps2 

Not  used 

mpsflg(15) 

Flag  indicating  the  type  of  MPS  thrust 
simulation 

msrb 

Pointer  index  for  SRB  thrust 
interpolation 

msrw 

Previous  index  for  wind  parameters 
interpolation 

msw 

Temporay  variable 

mswch(15) 

Flag  indicating  which  thrust  events  are 
considered  critical 

n 

Index 

nchiot(6) 

Optimization  flag  used  with  branch 
trajectory  option 

ncoast 

Thrust  event  to  begin  coast  on  final  case 

nendct(7) 

Index  indicating  end  of  min-H  phases 

nf8 

Number  of  differential  equations  to  be 
integrated 

nmax 

Iteration  counter 

nmps 

Index  of  first  MPS  engines  in  nsyst 
array 

Source 


I/O 

Status 

Common 

Block 

output 

Global 

bodyf 

output 

Global 

bodyf 

output 

Global 

bodyf 

output 

Global 

bodyf 

output 

Global 

tabik 

output 

Global 

agenS 

output 

Global 

agen3 

input 

Global 

mission 

output 

Global 

Ibm 

output 

Global 

Ibm 

input 

Global 

mombal 

output 

Global 

mps 

output 

Global 

mps 

output 

Global 

agen3 

output 

1 Global 

srm 

output 

Global 

bodyf 

output 

Global 

f mx  X 

output 

Global 

agen3 

Local 

input 

Global 

mult 

input 

Global 

agen3 

input 

Global 

agen3 

input 

Global 

rest 

input 

Global 

agen3 
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Variable 

Variable  Definition 

noevnt(5) 

Number  of  thrust  events  per  stage 

nowd(1  5) 

Index  indicating  thrust  event  where 
weight  drop  event  will  occur 

nstage 

Index  number  of  current  stage 

nstg(15) 

Internal  index  which  relates  thrust 
event  to  stage  number 

nsyst{  1 5) 

Index  array  which  specifies  the  type  of 
engines  that  will  be  used  for  each  thrust 
event 

ntrg  1 3 

MPS  throttle  trigger  number 

ntrg2 

Thrust  event  trigger  number 

ntrg9 

Acceleration  limit  trigger  number 

nvnt 

Number  of  thrust  events 

nvrst(5) 

Array  specifying  the  thrust  events 
where  intermediate  constraints  will  be 
imposed 

nwvnt 

Number  of  weight  drop  events 

ocow 

Orbiter  cutoff  weight 

olow 

Orbiter  liftoff  weight 

pfkg 

Conversion  for  pounds  to  kilograms 

prk4 

Temporary  variable  used  in  calculation 
of  performance  reserve  option 

prk5{5) 

Same  as  prk4  but  stage  dependent  (used 
with  branch  trajectory  option) 

prop(6) 

Propellant  weight  for  each  engine  type 

prtot 

Total  propellant  weight  used  for 
performance  reserve  option 

ptkg 

Conversion  from  pounds  to  kilograms 

ptn 

Conversion  from  pounds  to  newtons 

qload{26) 

Storage  array  for  parameters  printed  in 
final  loads  output  tables 

qtime(26) 

Storage  array  for  times  associated  with 
parameters  in  qload  array 

restx(1  0,5) 

Variable  storage  array  for  jump  start 
option 

save(20,13) 

Storage  array 

Source 

I/O 

Status 

ainit 

output 

input 

Global 

ainit 

input 

Global 

athrev 

output 

input 

Global 

ainit 

input 

Global 

ainit 

input 

Global 

athrev 

output 

Global 

athrev 

output 

Global 

athrev 

output 

Global 

ainit 

input 

Global 

ainit 

output 

Global 

ainit 

input 

Global 

Local 

athrev 

output 

input 

Global 

ainit 

input 

Global 

ainit 

input 

Global 

athrev 

output 

Global 

ainit 

input 

Global 

ainit 

output 

input 

Global 

ainit 

input 

Global 

ainit 

input 

Global 

aforun 

input 

output 

Global 

athrev 

input 

output 

Global 

athrev 

output 

Global 

athrev 

output 

Global 
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athrev 


Variable 

Variable  Definition 

save_mass 

Storage  variable  for  final  mass  used  in 
branch  option 

schi 

Sine  of  pitch  attitude  angle 

schip 

Sine  of  pitch  attitude  angle 

schiy 

Sine  of  yaw  attitude  angle 

spoa 

Specific  impulse  divided  by  acceleration 
limit 

slartv(40,2) 

Saved  values  of  state  for  jump  start 

step(1 5) 

Integration  step  size 

svazre 

Saved  value  of  relative  azimuth 

svxinc 

Saved  value  of  inclination  angle  for  AOA 
trajectory  constraint  for  variable  lY 
targeting 

svxnod 

Saved  value  of  descending  nodal  angle 
for  AOA  trajectory  constraint  for 
variable  lY  targeting 

sychi 

Saved  value  of  yaw  attitude  angle 

system 

Name  of  the  vehicle  system  being 
simulated  (SHUTTLE,  STAGE15,  HLLV) 

t 

Time  from  lift-off 

taut(15) 

Time  increments  for  thrust  events 

tauw(1  5) 

Time  increment  for  weight  drop  event 

tau_const(1  0, 

Constant  value  of  throttle  used  for 
constant  throttle  after  acceleration 
limit 

tbdwt(1  5) 

Weight  overboard  table  for  center  of 
gravity  tables 

tbias(6) 

Bias  between  simulated  time  and 
reported  time  (used  for  branch  option) 

temp 

Temporary  variable 

tempt 

Temporary  variable 

temp2 

Temporary  variable 

tg 

Time  of  acceleration  limit 

tglim(t  0,1  5) 

Time  of  acceleration  limit 

th  r 

Vacuum  thrust  of  fixed  engines 

throtft  5) 

Throttle  table  for  MPS  motor 

Source  I/O  Status  Common 

Block 


athrev  output  Global  save_ma 


ader1  | output  Global  agen2 


aderl  input  Global  agen2 


output  Global  fmxx 


input  Global  i start 
output 


sec  ainit  input  Global  agent 


ainit  input  Global  system 


dpir  output  Global  forint 
input 


anewch  input  Global  agent 


output 

sec 

ainit 

input 

Global 

agent 

ainit 

input 

Global 

mps 

kg 

athrev 

output 

Global 

bodyf 

sec 

athrev 

output 

Global 

mult 

Local 


input  Global  mps 
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athrev 


Variable 


Variable  Definition 


Units 


thrt 


Throttle  value  of  thrust 


nt 


time{2, 1 6) 


Actual  times  for  thrust  events 
measured  from  launch 


sec 


timmps(1  5) 


Time  table  for  MPS  motor 


sec 


Trigger  time  for  storage  of  state  during 
forward  integration 


sec 


tne(6,15) 


Array  which  defines  the  number  of 
engines  per  thrust  event 


tpoly 


Time  to  begin  booster  polynomial 
attitude  control 


sec 


tq 


Time  that  the  minh  phase  is  initiated 


sec 


tsavet 


Time  storage  variable  for  restart 


sec 


tv  1 


Time  to  activate  print  trigger 


sec 


tvl  2 


Time  to  activate  weight  drop  event 


sec 


tvl  3 


Time  to  activate  booster  MPS  throttle 
trigger 


sec 


tv2 


Time  to  activate  thrust  events 


sec 


tv9 


Time  to  activate  acceleration  limit 
trigger 


sec 


txcg(1 5) 


Vertical  center  of  gravity  table 


m 


tycg(1 5) 


Longitudinal  center  of  gravity  table 


m 


tzero 


Time  of  simulation  initiation 


sec 


t liftoff 


Time  of  lift-off 


sec 


var(25) 


State  variable  array 


vchstg 


Characteristic  velocity  at  staging 


m/sec 


viv{25) 


Initial  condition  array  for  jump  start 


vrcut 


Magnitude  of  characteristic  velocity 
cutoff 


m/sec 


wddump(1  5) 


Amount  of  weight  dumped  during 
OMS/RCS  thrust  events 


kg 


wdoms(1  5) 


Weight  flowrate  of  OMS  engines 


Ibs/sec 


wdot 


MPS  propellant  flowrate 


kg/sec 


wdott 


Throttled  propellant  flowrate 


kg/sec 


wdrcs(  1 5) 


Weight  flowrate  of  RCS  engines 


Ibs/sec 


wf(5) 


Predicted  final  mass  of  stage 


kg 


Source 

I/O 

Status 

Common 

Block 

Local 

aforun 

output 

input 

Global 

ageni 

ainit 

input 

Global 

mps 

athrev 

output 

Global 

ageni 

ainit 

input 

Global 

ageni 

athrev 

output 

Global 

agen2 

athrev 

output 

Global 

ageni 

athrev 

output 

Global 

jumpst 

athrev 

output 

Global 

forint 

athrev 

output 

Global 

forint 

athrev 

output 

Global 

forint 

athrev 

output 

Global 

forint 

aforun 

output 

input 

Global 

forint 

athrev 

output 

Global 

bodyf 

athrev 

output 

Global 

bodyf 

ainit 

input 

Global 

ageni 

ainit 

input 

Global 

t_liftoff 

Input 

output 

Global 

forint 

output 

Global 

vchstg 

athrev 

output 

Global 

agen2 

ainit 

input 

Global 

ageni 

ainit 

input 

Global 

omsrcs 

ainit 

input 

Global 

omsrcs 

Local 

Local 

ainit 

input 

Global 

omsrcs 

output 

input 

Global 

mult 
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Variable 

Variable  Definition 

wg 

Mass  at  acceleration  limit 

wg1 

Projected  mass  at  acceleration  limit  in 
mth  thrust  event 

wglim 

Masses  where  acceleration  limits  occur 

wjet(1  5) 

Jettison  weight  per  thrust  event 

woms 

Propellant  weight  of  OMS  engines 

woorb 

Initial  weight  of  orbiter 

wpmx 

Total  amount  of  usable  propellant 

wres 

Residual  weight 

wt  1 

Vehicle  mass  at  mth  thrust  event 

w y 

MPS  propellant  weight 

wzerst 

Stored  value  of  wzero 

w_margin(2) 

Required  value  of  weight  margin  at  the 
end  of  selected  stage 

xgpa 

Vertical  component  of  gimbal  points  of 
equivalent  booster  engines 

xinc 

Inclination  angle 

xlen 

Reference  length 

X m 

Current  vehicle  mass 

xml 

Vehicle  mass 

xmaug 

Auxiliary  vehicle  mass 

xmaug_save 

Saved  value  of  auxiliary  mass  used  for 
branch  trajectory  option 

xmd(1  5) 

Propellant  flowrate 

xmdot 

Propellant  flowrate 

xmiad 

Continuous  portion  of  vehicle  mass 

X m tj 

Total  flowrate  of  jth  thrust  event 

xmtl 

Total  flowrate  of  Ith  thrust  event 

xnod 

Angle  between  launch  longitude  and 
descending  node 

X ref 

Vertical  component  of  moment 
reference  point 

ygpa 

Longitudinal  component  of  gimbal  point 
of  booster  equivalent  engine 

kg/sec 


kg/sec 


kg 


kg/sec 


kg/SGC 


rad 


Source  I/O  Status  Common 

Block 


athrev  output  Global  fmxx 
input 


Local 


ainit  input  Global  agen1 


Local 


Local 


athrev  output  Global  Ipr 


athrev  | output]  Global  jumpst 


anewch  input  Global  multi 


Global  avggp 


Global  afprn 


Global  body! 


Global  agen2 


Local 


Global  agent 


Global  xmaug_s 
ave 


Global  xtra 


Local 


Global  agen2 


Local 


Local 


aprtn  input  Global  afprn 


athrev  output  Global  bodyf 


Global  avggp 


athrev  output 
input 


aprtn  input 


athrev  output 


athrev  output 


athrev  input 
output 


athrev  output 


ainit  Input 


aderl  input 
output 


athrev 


Variable 


Variable  Definition 


Units  Source  I/O  Status  Common 

Block 


Longitudinal  component  of  moment 
reference  point 


Lateral  component  of  gimbal  point  of 
booster  equivalent  engines 


athrev  output  Global  bodyf 


m athrev  output  Global  avggp 

input 
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3.18 


Subroutine  ATILT 


3.18.1  Purpose 


This  subroutine  provides  trigger  routines  for  time  related  events 
directly  after  liftoff  during  the  forward  trajectory  integration.  The 
additional  trigger  routines  AQMAX,  AXPRT,  GLIMT,  AWDEV,  ALIFT, 
ATHRO,  AROLL,and  AJUMP  are  included  as  entry  points  in  this 
subroutine  to  provide  various  output  functions.  These  routines  have  the 
following  functions: 


• ATILT 

• AQMAX 

• AXPRT 

• GLIMT 

• AWDEV 

• ALIFT 

• ATHRO 

• AROLL 

• AJUMP 


Controls  parameters  and  prints  at  tilt-over 
events; 

Prints  trajectory  block  at  maximum 
dynamic  pressure; 

Print  trajectory  block  at  print  intervals; 
Calculates  parameters  and  prints  trajectory 
block  at  acceleration  hmits; 

Calculates  parameters  and  prints  weight 
drop  events; 

Prints  trajectory  block  when  thrust-to- 
weight  is  equal  to  1 at  lift-off; 

Calculates  parameters  and  prints  trajectory 
block  at  MPS  throttle  events; 

Calculates  parameters  and  prints  trajectory 
block  at  roll  maneuver  events;  and 
Writes  output  file  at  first  stage  jump  start 
points. 


3.18.2  Variable  Listing 

3.18.3  Subroutines  Called: 

Name  Function 

ADER  Calculates  the  time  independent  portion  of  the  equations 

of  motion  during  forward  integration 
ADERl  Calculates  the  time  dependent  portion  of  the  equations 

of  motion  during  forward  integration 
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AEOSR 

APRTN 

FIND 

FUNISP 


Stores  state  variables  during  forward  integration 
Prints  trajectory  block  output  and  files 
Calculates  attitude  pol3momials 
Calculates  specific  impulse  based  on  throttle  level 


3.18.4  Calling  Subroutines: 

Name  Function 

DPIR  Integration  routine 


3.18.5  Fortran  Listing 


atilt 


Variable 

Variable  Definition 

ap(10) 

Coefficients  for  booster  pitch  attitude 

api(10,2) 

Coefficients  for  booster  pitch  attitude 

ay(10) 

Coefficients  for  booster  yaw  attitude 

ayi(10.2) 

Coefficients  for  booster  yaw  attitude 

chip 

Pitch  attitude  angle 

chir 

Roll  attitude  angle 

chirf 

Final  roll  attitude  angle  after  roll 
maneuver 

chiro 

Initial  value  of  roll  attitude  angle 

chpbas 

Pitch  attitude  bias  angle 

chrdot 

Roll  attitude  rate 

chrdsv 

Saved  value  of  roll  rate 

chybas 

Yaw  attitude  bias  angle 

cptb!(30) 

Booster  pitch  attitude  angle  table 

cy  tbl(30) 

Booster  yaw  attitude  angle  table 

delxdw(1  5,3) 

State  derivative  discontinuity  storage 
at  weight  grop  events 

dvar(25) 

Storage  array  for  the  state  derivatives 

dvars(1 3) 

Derivative  storage  at  the  thrust  events 

engdat(8,1  5) 

Engine  data  matrix 

ftbl(15) 

Thrust  table  for  main  proplusion  system 

glim(15) 

Acceleration  limit 

glimit 

Logical  variable  indicating  aceleration 
limit  has  been  achieved 

gzero 

Gravitational  constant  (9.80665  m/sec) 

hdchrd 

HeadS'Up  to  head-down  roll  rate 

hdmach 

Mach  number  lower  limit  for  second  roll 
maneuver 

hnm 

Nominal  step  size 

ifact 

Flag  indicating  the  type  of  attitude  used 
in  the  booster  stage 

It  h r 

Thrust  event  index  number 

Units 


rad 


rad 


Source 

I/O 

Status 

Common 

Block 

atilt 

input 

Global 

bodyf 

atilt 

output 

Global 

body 

atilt 

input 

Global 

bodyf 

atilt 

output 

Global 

body 

aderl 

output 

input 

Global 

agen2 

aderl 

input 

Global 

agen2 

Local 

atilt 

output 

input 

Global 

agent 

aderl 

input 

Global 

agen5 

atilt 

output 

Global 

agent 

ainit 


athrev 
ati  It 
atilt 


ader 


atilt 


ainit 


ainit 


ainit 


atilt(gli 


ainit 


ainit 


ainit 


atilt 


athrev 


input 


input 

output 

output 

output 


input 

output 

input 

input 

input 

input 

output 


input 

input 

input 


output 

input 


Local 

Global 

Global 

Global 

Global 


Global 

Global 


Global 

Global 

Global 


Global 


Global 

Global 

Global 


Global 

Global 


agenS 

contro 


contro 


agen2 


forint 

agen2 


agent 

mps 

mps 

mps 


const 


head up 
head up 


forint 

agen3 


agen3 


17 


input  Global 
output 


Variable  Definition 


Index  for  SSME  throttle  table 

Index  for  weight  drop  events 

Index  indicating  number  of  times  the 
acceleration  limit  has  been  reached 
within  a given  thrust  event 

Saved  value  of  jthrot 

Order  of  booster  pitch  attitude 
polynomial 

Order  of  booster  pitch  attitude 
polynomials 

Booster  attitude  indicator 

Order  of  booster  yaw  attitude 
polynomial 

Order  of  booster  yaw  attitude 
polynomials 

Interna!  flag  to  indicate  partial 
derivative  runs 

Flag  indicating  the  type  of  MRS  thrust 
simulation 

Number  of  jump  start  times  to  be  saved 
Iteration  counter 

Flag  indicating  booster  roll  program 
after  launch 

Index  number  of  current  stage 

Index  used  in  conjunction  with  timmps 
to  indicate  a throttle  event  in  the 
booster  stage 

Flag  indicating  end  of  tiltover  phase  of 
flight 

Weight  drop  event  trigger  for  forward 
trajectory 

MRS  throttle  trigger  number 
Trigger  for  roll  maneuver 

Relative  velocity  cutoff  trigger  for 
forward  trajectory 


I/O 


output 

input 

output 

input 

output 

input 


output 


output 


input 


output 

output 


input 


output 


output 


output 

input 

output 

output 


input 

output 

input 


output 


output 


output 


output 

output 


Status 


Global 


Global 


Global 


Global 


Global 


Global 


Global 

Global 


Global 


Global 


Global 


Global 


Global 

Global 


Global 

Global 


Global 


Global 


Global 

Global 


Global 


Common 

Block 

ithro 

agen3 

mps 

jthrot_s 

ave 

kp 

body 

agen3 

kp 

body 

rest 

agen3 

time_ju 

mp 

agen3 

agen3 

mult 

taulim 

nti  It 

forint 

forint 

trigc 

forint 
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atilt 


Variable 

Variable  Definition 

Units 

Source 

I/O 

Status 

Common 

Block 

ntrg4 

Booster  attitude  trigger  for  forward 
trajectory 

atilt 

output 

Global 

forint 

ntrg6 

Maximum  dynamic  pressure  trigger  for 
forward  trajectory 

atilt 

output 

Global 

forint 

ntrg7 

Liftoff  trigger  number 

atilt 

output 

Global 

forint 

ntrg9 

Acceleration  limit  trigger  number 

atilt 

output 

Global 

forint 

nwvnt 

Number  of  weight  drop  events 

ainit 

input 

Global 

agen3 

pi 

Pi  constant  (3.14159265) 

ainit 

input 

Global 

const 

psffm 

Conversion  for  pounds  per  square  feet 
from  newtons  per  square  meter 

ainit 

input 

Global 

const 

ptn 

Conversion  from  pounds  to  newtons 

nt/lbs 

ainit 

input 

Global 

const 

q 

Dynamic  pressure 

nt/m^2 

ader 

input 

Global 

agen2 

qflg 

Logical  variable  indicating  booster  SSME 
throttle  being  simulated 

m 

output 

Global 

qmax 

qpen 

Maximum  value  of  dynamic  pressure 

kg/m^2 

atilt 

output 

Global 

qmax 

step(1 5) 

Integration  step  size 

sec 

ainit 

input 

Global 

ageni 

t 

Time  from  lift-off 

sec 

dpir 

input 

Global 

forint 

taulim 

Rate  of  change  of  throttle  limit 

/sec 

ainit 

input 

Global 

taulim 

tau_const{1  0, 

Constant  value  of  throttle  used  for 
constant  throttle  after  acceleration 
limit 

ainit 

input 

Global 

mps 

tbegr 

Time  to  begin  roll  maneuver 

sec 

atilt 

input 

output 

Global 

agent 

lbias(6) 

Bias  between  simulated  time  and 
reported  time  (used  for  branch  option) 

sec 

athrev 

input 

Global 

mult 

tendr 

Time  to  terminate  roll  maneuver 

sec 

ainit 

input 

output 

Global 

agent 

1 

tg 

Time  of  acceleration  limits 

sec 

Local 

tglim(1  0,1  5) 

Time  of  acceleration  limit 

sec 

output 

Global 

mps 

throt(1  5) 

Throttle  table  for  MRS  motor 

ainit 

input 

Global 

mps 

th  rt 

Vacuum  thrust 

nt 

Local 

lime(2, 1 6) 

Actual  times  for  thrust  events 
measured  from  launch 

sec 

aforun 

input 

Global 

agent 

time_jump(5) 

Time  of  jump  start 

sec 

ainit 

input 

Global 

time_ju 

mp 

timmps(1  5) 

Time  table  for  MRS  motor 

sec 

output 

Global 

mps 

input 


timtau 

Time  for  throttle  event  in  first  stage 

sec 

ainit 

input 

Global 

taulim 

21' 


atilt 

Variable 

Variable  Definition 

Units 

Source 

1 1 

Trigger  time  for  storage  of  state  during 
forward  integration 

sec 

atilt 

tllft 

Time  to  begin  tiltover  maneuver 

sec 

ainit 

tne(6,15) 

Array  which  defines  the  number  of 
engines  per  thrust  event 

ainit 

ttilt 

Time  to  begin  tiltover  maneuver 

sec 

atilt 

tv  1 

Time  to  activate  print  trigger 

sec 

tv1  2 

Time  to  activate  weight  drop  event 

sec 

atilt 

tv1  3 

Time  to  activate  booster  MPS  throttle 
trigger 

sec 

atilt 

tv2 

Time  to  activate  thrust  events 

sec 

atilt 

tv3 

Value  of  relative  velocity  to  activate 
trigger 

m/sec 

atilt 

t V 4 

Time  to  activate  booster  attitude  phase 

sec 

atilt 

Time  to  activate  acceleration  limit 
trigger 

sec 

atilt 

tzero 

Time  of  simulation  initiation 

sec 

ainit 

u 

Y component  of  plumbline  inertial 
velocity  vector 

m/sec 

dpir 

V 

Z component  of  plumbline  inertial 
velocity  vector 

m/sec 

dpir 

wd(15) 

Weight  dropped  during  weight  drop 
event 

kg 

ainit 

wdott 

Propellant  flowrate 

kg/sec 

wglim 

Weight  at  acceleration  limit 

kg 

wzero 

Initial  vehicle  weight 

lbs 

ainit 

X 

X component  of  plumbline  position 
vector 

m 

dpir 

X m 

Current  vehicle  mass 

kg 

aderl 

xmach 

Mach  number 

ader 

xmaug 

Auxiliary  vehicle  mass 

kg 

athrev 

X mi 

Integrated  vehicle  mass  less  jettisoned 
inerts. 

kg 

dpir 

xmiad 

Continuous  portion  of  vehicle  mass 

kg 

aderl 

y 

Y component  of  plumbline  position 
vector 

m 

dpir 

I/O 

Status 

Common 

Block 

output 

Global 

agent 

input 

Global 

agent 

input 

Global 

agent 

input 

output 

Global 

agent 

output 

Global 

forint 

output 

Global 

forint 

output 

input 

Global 

forint 

output 

Global 

forint 

output 

Global 

forint 

output 

Global 

forint 

output 

Global 

forint 

input 

output 

Global 

agent 

output 

Global 

forint 

output 

Global 

forint 

input 

Global 

agent 

Local 

Local 

input 

Global 

agen2 

output 

Global 

forint 

input 

Global 

agen2 

input 

Global 

agen2 

input 

output 

Global 

agent 

input 

Global 

forint 

1 

input 

Global 

agen2 

input 

Global 

forint 
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atilt 


Variable 

Variable  Definition 

Units 

Source 

I/O 

Status 

Common 

Block 

2 

Z component  of  ptumbline  position 
vector 

m 

dpir 

input 

Global 

forint 

zap(1 8) 

Additional  integrated  variables 

variabi 

desolv 

output 

Global 

forint 
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3.19  Subroutine  ATMOSPHERE 

3.19.1  Purpose 

This  subroutine  contains  the  reference,  hot,  and  cold  models  for  the 
1963  Patrick  and  1971  Vandenburg  atmosphere  models. 

3.19.2  Variable  Listing 

3.19.3  Subroutines  Called: 

None 

3.19.4  Calling  Subroutines: 

Name  Function 

ADER  Calculates  the  time  independent  portion  of  the  equations 

of  motion  during  forward  integration 

AINIT  Input  routine 

BDRII  Calculates  components  of  the  equations  of  motion  for  the 

backward  trajectory 

3.19.5  Fortran  Listing 


228 


atmosphere 


Variable 


dlxmi 


dixpi 


d X 


ifirst 


Variable  Definition 


Coefficients  for  spline  interpolation 


Altitude  table  for  atmosphere 
parameters 


Name  of  atmospheric  subroutine  being 
used  for  the  simulation 


Name  of  atmospheric  subroutine  being 
used  for  the  simulation 


Coefficients  for  spline  interpolation 


Coefficients  for  spline  interpolation 


Speed  of  sound  tables 


Temporary  variable 


Temporary  variable  (l/d!x) 


Temporary  variable 


Temporary  variable 


Temporary  variable 


First  time  index 


Operation  index 


Previous  index  used  in  atmospheric 
routine 


Index  of  current  place  in  interpolated 
table 


m- 1 


m + 1 


m+2 


Number  of  data  points  in  tables 


Previous  index  used  in  atmospheric 
routine 


Output  array  of  atmospheric 
parameters 


Atmospheric  pressure  tables 


Temporary  variable 


Radius  squared 


Atmospheric  density  tables 


s 

Temporary  array 

smi 

Temporary  storage  array 

spl 

Temporary  storage  array 

atmosphere 


Variable 

Variable  Definition 

Units 

Source 

I/O 

Status 

Common 

Block 

t 

Temperature 

Local 

tn 

Temperature 

Local 

X 

Independent  table  for  spline 
interpolation 

Local 

X t 

Independent  table  for  spline 
interpolation 

Local 

y 

Dependent  tables  for  spline  interpolation 

Local 

yt 

Dependent  tables  for  spline  interpolation 

. 

Local 

1 
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3^  Subroutine  BOPTBL 

3.20.1  Purpose 

This  subroutine  reads  the  input  namelist  for  the  table  output 
subroutine  BIPTBL. 

3.20.2  Variable  Listing 

3.20.3  Subroutines  Called: 

None 

3.20.4  Calling  Subroutines: 

Name  Function 

MASTRE  Controls  total  program  logic 

3.20.5  Fortran  Listing 
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Source  I/O  Status  Common 

Block 


srid(30) 


Blank  character  array 


Blank  character  array 


Blank  character  array 


Date  for  output 


Case  number 


Error  index 


Table  number 


Flag  indicating  that  output  tables  will 
(>0)  or  will  not  (=0)  be  generated 


Character  variable  specifying  name  of 
originator 


Character  variable  used  for  user  input 
description  of  output  tables  from 
subroutine  B1PTBL 


output  Global  bopcom 


output  Global  bopcom 


output  Global  bopcom 


Global  bopcom 


output  Global  alat 


output  Global  bopcom 


output  Global  bopcom 


bOptbl  output  Global  bopcom 
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321 


Subroutine  BIPTBL 


3.21.1  Purpose 

This  subroutine  outputs  various  publishable  output  tables  based  on  a 
predefined  set  of  requirements. 

3.212  Variable  Listing 

3.212  Subroutines  Called: 

None 

3.21.4  Calling  Subroutines: 

Name  Function 

MASTRE  Control  total  program  logic 

321.5  Fortran  Listing 
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Variable 


name(1 28) 


Variable  Definition 


Tolerance  on  time  between  events 


Previous  value  of  aceleration 


Parameters  from  output  file 


Blank  format  for  variable  output 


Blank  format  for  variable  format  output 


Date  for  output 


Name  of  parameters  for  use  in  output 
tables 


Propellant  flowrate 


Maximum  number  of  parameters  per 
output  table 


Name  of  units  of  output  parameters 


Temporary  index 


Parameter  Index 


Flag  index 


Index  to  count  number  of  thrust  events 


Index  for  unit 


Index  to  count  number  of  weight  drop 
events 


Flag  specifying  propulsion  summary 
output  required 


Index  to  specify  number  of  lines  on  a 
page 


Number  of  output  tables 


Parameter  names  used  in  print  output 


Parameter  names  used  in  print  output 


Formats  used  in  variable  format 
printouts 


Formats  used  in  variable  format 
printouts 


Case  number 


Variable  format  for  parameter  value 
printouts 


Format  used  for  variable  output 


Index  to  specify  the  number  used  to 
specify  the  output  parameters 


Format  to  end  variable  format  for 


Status  Common 
Block 
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Source  I/O  Status  Common 

Block 


srid(30) 


Variable  format  for  parameter  names 


Index  for  units  used  for  output  tables 


Number  of  parameters  for  output  tables 


Character  variable  specifying  name  of 
originator 


Names  of  parameters  on  output  tables 


Character  variable  used  for  user  input 
description  of  output  tables  from 
subroutine  B1PTBL 


Table  title 


Time  tolerance 


Previous  time 


Local  thrust 


Value  of  parameters  in  output  tables 


Total  vehicle  weight 


output  Global  bopcom 


bOptbl  input  Global  bopcom 


nput  Global  bopcom 
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NTBL (1 ) =NSTR1  IF (LINES. eq. 0)  then 

NF0R(1)=NSTR2(1) 

NFOR ( 2 ) -NSTR2 ( 2 ) WR I TE ( 2 1 , 1 0 0 ) OFF I CE , DATE , TITLE, NCASE, K 

IMAX==0  WRITE(21,NTBL)  (PRNT(I)  , 1 = 1,  IMAX) 


flo^b(55) +b(56) 
wtot=b(61) +b(62) 
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Subroutine  BADLX 


322.1  Purpose 

This  subroutine  determines  the  influence  coefficients  (partial 
derivatives)  of  the  objective  function  and  the  terminal  and  intermediate 
constraints  with  respect  to  the  optimization  parameters. 

3.22.2  Variable  Listing 

3.22.3  Subroutines  Called: 

Name  Function 

AFORUN  Controls  forward  trajectory  integration 

FUNISP  Calculates  specific  impulse  based  on  throttle  level 

3.22.4  Calling  Subroutines: 

Name  Function 

MASTRE  Control  total  program  logic 

3.22.5  Fortran  Listing 
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Variable 

Variable  Definition 

aa 

Launch  azimuth 

aerod(30,1  7) 

Aerodynamic  coefficient  tables 

astor(4,67) 

Storage  array  for  weight  output  table 

cfr(1  5) 

Critical  flowrate 

cisp(15) 

MPS  specific  impulse 

cptbl(30) 

Booster  pitch  attitude  angle  table 

cytbl(30) 

Booster  yaw  attitude  angle  table 

daa 

Increment  value  of  launch  azimuth  used 
for  calculation  of  partial  derivatives 

dbeta 

Incremental  sideslip  angle  for 
calculation  of  partial  derivatives 

ddelx(20) 

Partial  derivatives  of  the  payoff  and 
constraints  with  respect  to  the  control 
parameters 

del 

State  variable  storage  during  partial 
evaluation 

deltav 

Delta  velocity  required 

delwz 

Incremental  weight  used  to  vary  liftoff 
weight 

delx(7) 

State  variable  storage  during  partial 
evaluation 

dtau 

Incremental  value  of  throttle  for 
calculation  of  partial  derivatives 

dtime 

Incremental  time  for  calculation  of 
partial  derivatives 

dvisp 

Specific  impulse  of  upper  stage 

engdat(8,1 5) 

Engine  data  matrix 

fmxx 

Temporary  variable  used  for  calculation 
of  partial  derivatives  for  tank 
constraints 

ftbl{15) 

Thrust  table  for  main  proplusion  system 

glim(15) 

Acceleration  limit 

gzero 

Gravitational  constant  (9.80665  m/sec) 

hratec 

Aerodynamic  heating  rate 

lbs 


kg/sec 


sec 


m/sec 


kg 


Source 

I/O 

Status 

Common 

Block 

ainit 

output 

input 

Global 

agen2 

ainit 

output 

input 

Global 

aerodi 

ainit 

input 

Global 

astor 

ainit 

input 

Global 

xtra 

ainit 

input 

Global 

xtra 

bad  lx 

output 

input 

■ 

contro 

badix 

output 

input 

Global 

contro 

ainit  input  Global  deix 


athrev  input  Global  deIx 


Local 


Local 


ainit  input  Global  agent 


athrev  input  Global  fmxx 


btu/sec 


output 

input 

Global 

mps 

input 

Global 

mps 

input 

Global 

const 

input 

Global 

comnew 
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Variable 

Variable  Definition 

hrates 

Stored  value  of  heat  rate 

ibranch 

Flag  indicating  the  terminal  thrust  event 
of  the  first  trajectory  of  the  branch 
trajectory 

ipr 

Denotes  the  thrust  event  from  which 
fuel  propellant  reserve  (FPR)  is 
calculated 

iprop(6) 

Propulsion  cutoff  flags  {stage 
dependent) 

irtfig 

Flag  indicating  FPR  calculations 

irtls 

Return  to  launch  flag 

i t 

Thrust  event  index  used  to  calculate 
cutoff  time  based  on  margin 

ji 

Index 

ja 

Index 

j j 

Index 

jthrot_save(1 

Saved  value  of  jthrot 

jump 

Jump  start  flag 

k1 

Index 

k2 

Index 

kcdphi(20) 

Terminal  constraint  selection  flag  array 

kdb(40) 

Array  for  control  parameter  flags 

Isb 

Internal  flag  to  indicate  partial 
derivative  runs 

m 

Index 

maxhat 

Index  used  to  indicate  the  number  of  the 
constraint  used  for  the  maximum 
heating  constraint 

maxq 

Index  for  maximum  dynamic  pressure 
constraint 

minh 

Flag  to  indicate  thrust  event  which 
begins  min-h  attitude  optimization 

mpsflg(1  5) 

Flag  indicating  the  type  of  MPS  thrust 
simulation 

msw 

Temporay  variable 

mswch(1  5) 

Flag  indicating  which  thrust  events  are 
considered  critical 

naltw 

Index  used  when  calculating  launch 

Source  I/O  Status  Common 

Block 


Local 


output  Global  mult 


output  Global  auto 


output  Global  rest 


Local 


output  Global  heat 


output  Global  qmax 


ainit  input  Global  agen3 


ainil  output  Global  agen3 


athrev  input  Global  fmxx 


output  Global  agen3 


output  Global  naltw 
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Variable 

Variable  Definition 
azimuth  partial  derivatives 

Units 

Source 

I/O 

input 

Status 

Common 

Block 

nbeta 

Index  used  for  booster  sideslip  attitude 
control 

ainit 

input 

Global 

taulim 

nchiot(6) 

Optimization  flag  used  with  branch 
trajectory  option 

ainit 

input 

Global 

mult 

ncnrs(5) 

Number  of  constraints  at  restart 

ainit 

input 

Global 

rest 

noss 

Number  of  constraints 

mastre 

input 

Global 

bgen3 

nstg(15) 

Internal  index  which  relates  thrust 
event  to  stage  number 

ainit 

input 

Global 

mult 

ntau 

Index  used  in  conjunction  with  timmps 
to  indicate  a throttle  event  in  the 
booster  stage 

output 

input 

Global 

taulim 

ntcn 

Number  of  intermediate  constraints 

ainit 

input 

Global 

rest 

phite(20) 

Values  of  payoff  and  constraints 

variabl 

input 

output 

Global 

yh 

prk4 

Temporary  variable  used  in  calculation 
of  performance  reserve  option 

amit 

input 

Global 

ipr 

prk5(5) 

Same  as  prk4  but  stage  dependent  (used 
with  branch  trajectory  option) 

athrev 

input 

Global 

ipr 

ptfmarg 

Partial  derivative  of  final  time  with 
respect  to  margin 

Local 

ptfwio 

Partial  derivative  of  final  time  with 
respect  to  liftoff  weight 

Local 

ptgwo 

Partial  derivative  of  time  to 
acceleration  limit  with  respect  to  liftoff 
weight 

Local 

ptjwo 

Partial  derivative  of  duration  time  of 
jth  thrust  event  with  respect  to  liftoff 
weight 

Local 

ptkg 

Conversion  from  pounds  to  kilograms 

kg/lbs 

ainit 

input 

Global 

const 

ptiwo 

Partial  derivative  of  duration  time  of 
Ith  thrust  event  with  respect  to  liftoff 
weight 

Local 

pin 

Conversion  from  pounds  to  newtons 

nt/lbs 

aimt 

input 

Global 

const 

qpen 

Maximum  value  of  dynamic  pressure 

kg/m^2 

aforun 

input 

Global 

qmax 

qpens 

Stored  value  of  maximum  dynamic 
pressure 

Local 

spradb 

Increment  in  forward  difference  to 
evaluate  partial  derivative  of  payoff 
and  constraints  with  respect  to  first 
stage  pitch  attitude  variations 

rad 

ainit 

input 

Global 

delpar 
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Variable 

Variable  Definition 

syradb 

Increment  in  forward  difference  to 
evaluate  partial  derivative  of  payoff 
and  constraints  with  respect  to  first 
stage  yaw  attitude  variations 

taut(1  5) 

Time  increments  for  thrust  events 

tau_const(1  0, 

Constant  value  of  throttle  used  for 
constant  throttle  after  acceleration 
limit 

tbias(6) 

Bias  between  simulated  time  and 
reported  time  (used  for  branch  option) 

tbias_save 

Saved  value  of  tbias 

temp 

Temporary  variable 

tempi 

Temporary  variable 

temp2 

Temporary  variable 

th  r 

Vacuum  thrust  of  fixed  engines 

thrm 

Thrust  of  mth  trottle  setting 

throt(1  5) 

Throttle  table  for  MPS  motor 

timmps(1  5) 

Time  table  for  MPS  motor 

timtau 

Time  for  throttle  event  in  first  stage 

tne(6,1  5) 

Array  which  defines  the  number  of 
engines  per  thrust  event 

var(25) 

State  variable  array 

V rcut 

Magnitude  of  characteristic  velocity 
cutoff 

wddump(1  5) 

Amount  of  weight  dumped  during 
OMS/RCS  thrust  events 

wdoms(1  5) 

Weight  flowrate  of  OMS  engines 

wdot 

Propellant  flowrate  of  ”it"  thrust  event 

wdotit 

Propellant  flowrate  of  "it"  thrust  event 

wdotm 

Propellant  flowrate  of  throttle 

wdrcs(1  5) 

Weight  flowrate  of  RCS  engines 

wzero 

Initial  vehicle  weight 

xlamb(40,20) 

Partial  derivatives  of  payoff  and 
constraints  with  respect  to  the 
optimization  parameters 

kg 


Ibs/sec  ainit 


kg/sec 


Ibs/sec  ainit 


lbs 


Status  Common 
Block 


input  Global  delpar 


output  Global  agent 
input 


input  Global  mps 


input  Global  mult 
output 


Local 


Local 


Local 


Local 


Local 


Local 


input  Global  mps 


output  Global  mps 
input 


output  Global  taulim 
input 


input  Global  agent 


input  Globa!  forint 


input  Global  agent 


input  Global  omsrcs 


input  Global  omsrcs 


Local 


Local 


Local 


input  Global  omsrcs 


output  Global  agen2 
input 


input  Global  auto 
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Variable 

Variable  Definition 

Units 

Source 

I/O 

Status 

Common 

Block 

xmd(1  5) 

Propellant  flowrate 

kg/sec 

ainit 

input 

Global 

xtra 

xmlj 

Flowrate  of  jth  thrust  event 

kg/sec 

Local 

xmtl 

Flowrate  of  Ith  thrust  event 

kg/sec 

Local 

yi(7.20) 

Integrated  values  of  adjoint  equations  of 
motion 

dpir 

input 

Global 

bake 

ylbt(15,20) 

Partial  derivatives  of  the  constraints 
with  respect  to  the  thrust  event  time 
intervals 

bkend 

input 

Global 

blamb 
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GET  LAMBDA  BETA  16  FOR  LIFTOFF  WEIGHT 


tbias (k) ~tbias_save (k)  DO  1=1,7 

enddo  DDELX ( I ) = (DELX ( I ) -VAR ( I ) ) / (-SPRADB) 

enddo 


XLAMB(K+24, I) =XLAMB (K  + 24, I) +DDELX (J)  *YL (J, I ) endif 


PTGWO-1 . /XMTL* ( 1 . -KMT J*PTJWO) 


XLAMB  (16,1)  =XLAMB  (16,1)  +TEMP* YLBT  ( IPR,  I ) +TEMP2 
YLBT(IPR+1, I) 


3^  Subroutine  BAKRN 

3^.1  Purpose 

This  subroutine  controls  the  setup  logic  for  the  backward  trajectory 
integration  and  calls  the  integration  subroutines. 

3.23.2  Variable  Listing 


3.23.3  Subroutines  Called: 


Name 

BDRII 

BDRI 

BGLIM 

BKEND 

BSAVEG 

BTHREV 

BWDEV 

DESOLV 


Function 

Calculates  components  of  the  equations  of  motion  for  the 
backward  trajectory 

Calculates  equations  of  motion  for  the  backward 
trajectory 

Controls  acceleration  limit  events  during  backward 
integration 

Terminates  backward  integration 

Calculates  impulse  response  functions  and  integrates 

weighting  matrix 

Controls  thrust  event  logic  during  backward  integration 
Controls  weight  drop  event  logic  during  backward 
integration 

Initializes  integration  constants  and  calls  integration 
routine 


3.23.4  Calling  Subroutines: 

Name  FvnctiQD 

MASTRE  Control  total  program  logic 

3.23.5  Fortran  Listing 
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bakrn 


Variable 


bei 


beu 


bgiim 


bhmn 


bkend 


byl 


delxdr(7,5) 


delxh(5) 


drngdt(2) 


hmxb 


Ithr 


iwd 
i X r 


jtb 

jthrot(  1 5) 


kat 


kcdres(6,5) 


kcytab 


ker  r 
kindb 


krderb 


Variable  Definition 

Units 

Source 

I/O 

Status 

Common 

Block 

Lower  error  limit  for  backwards 
integration 

sec 

output 

Global 

agen2 

Upper  limit  for  backwards  integration 

sec 

output 

input 

Global 

agen2 

Integration  type  flag  for  backwards 
trajectory 

output 

Global 

agen3 

Minimum  stepsize  for  backwards 
integration 

sec 

output 

Global 

agen2 

Integration  type  flag  for  backwards 
trajectory 

output 

Global 

agen3 

Lower  dependent  variable  value  for  auto 
stepsize 

sec 

output 

Globa! 

agen2 

State  derivative  storage  at  desired 
intermediate  point 

athrev 

input 

Global 

agen2 

Storage  array  for  stagnation  heating 
rate  at  intermediate  constraint  thrust 
events 

athrev 

output 

Global 

delxh 

Time  derivative  of  range  from  launch 
site 

acstop 

input 

Global 

drngdt 

Maximum  step  size  for  backward 
integration 

sec 

output 

Global 

agen2 

Thrust  event  index  number 

athrev 

output 

input 

' Global 

agen3 

Index  for  weight  drop  events 

bakrn 

output 

Global 

agen3 

Index  for  state  variable  tables 

bakrn 

input 

output 

Global 

agen3 

Index  for  control  table  points 

bakrn 

output 

Global 

bgen3 

Index  indicating  number  of  times  the 
acceleration  limit  has  been  reached 
within  a given  thrust  event 

■ 

output 

input 

Global 

mps 

Indicator  for  positive  definite  values  of 
huu  matrix 

bakrn 

output 

Global 

agen3 

Array  for  intermediate  constraint 
function  code 

ainit 

input 

Global 

enput 

Attitude  control  table  index 

bakrn 

output 

input 

Global 

agen3 

Integration  error  indicator 

Local 

Integration  type  flag  for  backwards 
trajectory 

ainit 

input 

Global 

agen3 

Order  of  differences  for  backwards 
integration 

ainit 

input 

Global 

agen3 

260 


bakrn 


Variable 

Variable  Definition 

)( 

Dimension  of  internal  array  in 
integration  routine 

lldsol 

Dimension  of  internal  array  in 
integration  routine 

maxhat 

Index  used  to  indicate  the  number  of  the 
constraint  used  for  the  maximum 
heating  constraint 

mbs1 

Pointer  index  for  aerodynamic  lookup  in 
backwards  integration 

mbs1  8 

Pointer  index  for  viscous  drag 
interpolation  in  backwards  integration 

mbsl  9 

Previous  index  for  viscous  drag 
interpolation  in  backwards  integration 

mbs2 

Previous  index  for  aerodynamic 
interpolation  in  backwards  integration 

mbs3 

Pointer  index  for  base  force 
interpolation  in  backwards  integration 

mbs4 

Previous  index  for  base  force 
interpolation  in  backwards  integration 

mbs5 

Index  for  state  interpolation 

mbs6 

Not  used 

mbs7 

Pointer  index  for  center  of  gravity 
interpolation  in  backwards  integration 

mbs8 

Previous  index  for  center  of  gravity 
interpolation  in  backwards  integration 

minh 

Flag  to  indicate  thrust  event  which 
begins  min-h  attitude  optimization 

nact 

Actual  number  of  differential  equations 
to  solve 

nbtrg  1 

Termination  trigger  for  backward 
integration 

nbtrg2 

Thrust  event  trigger  for  backward 
integration 

nbtrg3 

Weight  drop  event  trigger  for  backward 
integration 

nbtrg4 

Impulse  response  function  trigger  for 
backwards  integration 

nbtrgS 

Acceleration  limit  trigger  for 
backwards  integration 

ncnrs(5) 

Number  of  constraints  at  restart 

output 


output 


output 


output 


output 


output 


ainit  output 
output 
output 
output 
output 
output 
output 


Status 

Local 

Local 

Global 

Global 

Global 

Global 

Global 

Global 

Global 

Global 

Global 

Global 

Global 

Global 

Global 

Global 

Global 

Global 

Global 

Global 

Global 


bodyb 

vaero 

vaero 

bodyb 

bodyb 

bodyb 

bodyb 

bodyb 

bodyb 

bodyb 

agen3 

bgen3 

bakint 

bakmt 

bakint 

bakint 

bakint 

rest 
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Variable 


nctn 


bakrn 


Variable  Definition 


Units 


Integration  type  flag  for  backwards 
trajectory 


Source 


nent 


Number  of  points  In  state  variable 
tables 


bakrn 


nomor 


Index  indicating  end  of  Integration 


noss 


Number  of  constraints 


bakrn 


nvnt 


Number  of  thrust  events 


ainit 


nvrst(5) 


Array  specifying  the  thrust  events 
where  intermediate  constraints  will  be 
imposed 


ainit 


nwvnt 


Number  of  weight  drop  events 


ainit 


prtot 


Total  propellant  weight  used  for 
performance  reserve  option 


^9 


ainit 


Time  from  lift-off 


sec 


dpir 


tbk 


Time  used  in  backward  integration 


sec 


tbkd 


Time  used  in  backward  integration 


tbv1 


Termination  event  trigger  time  during 
backward  integration 


bakrn 


tbv2 


Thrust  event  trigger  time  during 
backward  integration 


bakrn 


tbv3 


Weight  drop  event  trigger  time  during 
backward  integration 


bakrn 


tbv4 


Time  to  next  determination  of  impulse 
response  function 


sec 


bakrn 


tbv5 


Time  of  acceleration  limit  event 


sec 


bakrn 


tend 


Termination  time  of  forward  trajectory 
(start  of  backward  intgration) 


sec 


bakrn 


tglim(1  0,1  5) 


Time  of  acceleration  limit 


sec 


atilt 


time(2.16) 


Actual  times  for  thrust  events 
measured  from  launch 


sec 


aforun 


tq 


Time  that  the  minh  phase  is  initiated 


sec 


aforun 


tr(5) 


Intermediate  constraint  absolute  time 


sec 


bakrn 


wiss(20.20) 


Weighting  matrix 


bsaveg 


xmaug 


Auxiliary  vehicle  mass 


kg 


athrev 


yl(7,20) 


Integrated  values  of  adjoint  equations  of 
motion 


262 


afornd 


I/O 

Status 

Common 

Block 

output 

Global 

agen3 

output 

Global 

bgen3 

output 

Global 

nomor 

input 

output 

Global 

bgen3 

input 

Global 

agen3 

output 

Global 

enput 

input 

Global 

agen3 

input 

Global 

ipr 

input 

Global 

forint 

output 

input 

Global 

bakint 

output 

Global 

bakint 

output 

Global 

bakint 

output 

Global 

bakint 

output 

Global 

bakint 

output 

Global 

bakmt 

output 

Global 

bakint 

output 

input 

Global 

bakint 

input 

Global 

mps 

input 

Global 

ageni 

input 

Global 

agent 

output 

Global 

rest 

output 

Global 

bake 

output 

input 

Global 

agent 

output 

input 

Global 

bakint 

bakrn 


Variable  Definition 


Units  Source  I/O  Status  Common 

Block 


Partial  derivatives  of  the  constraints 
with  respect  to  the  thrust  event  time 
intervals 


Initial  state  variables  of  the  adjoint 
equations  of  motions  for  backward 
integration 


bakrn  output  Global  blamb 


afornd  input  Global 
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NOSS=NOSS+NCNRS (NCTN) 


3^ 


Subroutine  BDRII 


3.24.1  Purpose 

This  subroutine  computes  the  first  partial  derivatives  of  the  equations 
of  motion  with  respect  to  the  state  variables  and  the  first  and  second  partial 
derivatives  with  respect  to  the  attitude  angles. 

3.24.2  Variable  Listing 


3.24.3  Subroutines  Called: 
Name 
ACNTRO 


AGEO 

AMULG 

AMULG7 

ATMOSPHERE 

MASSPRO 

RRASPL 

SPLINE 


Function 

Interpolates  pitch  and  yaw  attitude  angles  during  min- 
H phase  of  simulation 

Calculates  gravitational  accelerations  and  partial 
derivatives  with  respect  to  the  state  variables 
Interpolates  two  dependent  variables  based  on  linear 
technique 

Interpolates  seven  dependent  variables  based  on  linear 
technique 

Calculates  atmospheric  parameters  using  either  Patrick 
AFB  or  Vandenburg  AFB  models 
Calculates  dynamic  mass  properties 
Interpolates  atmospheric  parameters  from  Range 
Reference  model  using  spline  method 
Interpolates  data  based  on  3rd  order  spline  technique. 
Partial  derivatives  are  also  calculated  by  the  spline 
routine 


3.24.4  Calling  Subroutines: 

Name  Function 

DPIR  Integration  routine 

3.24.5  Fortran  Listing 
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Variable 


a(3,3 


a1  2w 


a22w 


a32w 


aa 


aaero 


acacf 


acamf 


acg 


acmcf 


acmmf 


acncf 


acnmf 


Variable  Definition 


Tranformatlon  matrix  from  equatorial 
to  plumbline  coordinate  systems 


Plumbline  X component  of  earth  spin 
axis 


Plumbline  Y component  of  earth  spin 
axis 


Plumbline  Z component  of  earth  spin 
axis 


Not  used 


Spline  coefficients  for  aerodynamic 
coefficient  interpolation 


Continuous  flow  coefficient  for  axial 
force 


Molecular  flow  coefficient  for  axial 
force 


Spline  coefficients  for  center  of  gravity 
interpolation 


Continuous  flow  coefficient  for  pitching 
moment 


Molecular  flow  coefficient  for  pitching 
moment 


Continuous  flow  coefficient  for  normal 
force 


Molecular  flow  coefficient  for  normal 
force 


Interpolated  aerodynamic  coefficients 


aerob(50.6,3  Base  force  tables 


aerodd  Derivatives  of  aerodynamic  coefficients 

with  respect  to  mach  number 


Spline  coefficients  for  incremental  base 
force  interpolation 


Spline  coefficients  for  base  force 
interpolation 


Sideslip  angle 


Angle  of  attack 


Angle  of  attack 


alp_new 

Angle  of  attach  based  on  Q alpha 

rad 

bdri  1 

output 

Global 

q_partia 

Is 

alt 

Altitude 

m 

bdri  i 

output 

Global 

agen2 

Variable 

altls 

alttbl(IOO) 

amx 

amy 

amz 

anri2_new 

aw 

azw 

baero 

bb 

bcacf 

bcamf 

beg 

bemef 

bemmf 

benef 


bf 

bfab 

bomdot 


bw 

ca 


Variable  Definition 


Altitude  of  launch  site 


Altitude  table  for  wind  tables 


Aerodynamic  moment  about  vehicle  yaw  nt-m 


Aerodynamic  moment  about  vehicle  roll  nt-m 


Aerodynamic  moment  about  vehicle 
pitch  axis 


Aerodynamic  pitching  moment  (new 
value  based  on  Qalpha  orientation) 


Spline  coefficients  for  wind  parameter 
Interpolation 


Wind  azimuth 


Spline  coefficients  for  aerodynamic 
coefficient  interpolation 


Not  used 


Continuous  flow  coefficient  for  axial 
force 


Molecular  flow  coefficient  for  axial 
force 


Spline  coefficients  for  center  of  gravity 
interpolation 


Continuous  flow  coefficient  for  pitching 
moment 


Molecular  flow  coefficient  for  pitching 
moment 


Continuous  flow  coefficient  for  normal 
force 


Molecular  flow  coefficient  for  normal 
force 


Spline  coefficients  for  incremental  base 
force  interpolation 


Spline  coefficients  for  base  force 
interpolation 


Booster  mass  flowrate 


Spline  coefficients  for  wind  parameter 
interpolation 


Axial  force  coefficient 
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Variable 


cacf 


cadele 


calcpar 


calp 


calp_new 


camf 


cao 


cazw 


ca_new 


cbaxii 


cc 


ccacf 


ccmcf 


ccmmf 


Variable  Definition 


Slope  of  axial  force  coefficient  with 
respect  to  angle  of  attack 


Axial  force  continuum  flow  coefficient 


Coefficient  of  axial  force  coefficient 
with  respect  to  elevon  deflection 
(currently  set  to  0) 


Spline  coefficients  for  aerodynamic 
coefficient  interpolation 


Logical  flag  to  indicate  calculation  of 
partials 


Cosine  of  angle  of  attack 


Base  force  tables 


Axial  force  molecular  flow  coefficient 


Axial  force  coefficient  at  zero  angle  of 
attack 


Cosine  of  the  wind  azimuth  angle 


Axial  force  coefficient  based  new  value 
of  alpha 


Constant  value  of  base  axial  force 


Not  used 


Continuous  flow  coefficient  for  axial 
force 


Molecular  flow  coefficient  for  axial 
force 


Spline  coefficients  for  center  of  gravity 
interpolation 


Cosine  of  pilch  attitude  angle 


Cosine  of  roll  attitude  angle 


Cosine  of  yaw  attitude  angle 


Continuous  flow  coefficient  for  pitching 
moment 


Molecular  flow  coefficient  for  pitching 
moment 


Continuous  flow  coefficient  for  normal 
force 


Molecular  flow  coefficient  for  normal 
force 


Status  Common 
Block 


Variable 


cibeta 


do 


cmalp 


cmcf 


cmdele 


cnbeta 


cnbo 


cncf 


cndele 


Variable  Definition 


Spline  coefficients  for  incremental  base 
force  interpolation 


Spline  coefficients  for  base  force 
interpolation 


Interpolated  values  of  center  of  gravity 
components 


Center  of  gravity  tables 


Status  Common 
Block 


chip 

Pitch  attitude  angle 

rad 

bdr1  i 

input 

Global 

agen2 

chi  r 

Roll  attitude  angle 

rad 

aderl 

Input 

Global 

agen2 

chiy 

Yaw  attitude  angle 

rad 

bdri  i 

input 

Globa! 

agen2 

Rolling  moment  slope  coefficient 


Rolling  moment  coefficient  at  zero 
sideslip  angle 


Pitching  moment  slope  coefficient 


Pitching  moment  continuum  flow 
coefficient 


Coefficient  of  pitching  moment 
coefficient  with  respect  to  elevon 
deflection  (currently  set  to  0) 


Pitching  moment  molecular  flow 
coefficient 


Pitching  moment  coefficient  at  zero 
alpha 


Slope  of  normal  force  coefficient  with 
respect  to  angle  of  attack 


Slope  of  normal  force  coefficient  with 
respect  to  angle  of  attack 


Yawing  moment  slope  coefficient 


Yawing  moment  coefficient  at  zero 
sideslip  angle 


Normal  force  continuum  flow  coefficient 


Coefficient  of  normal  force  coefficient 
with  respect  to  elevon  deflection 
(currently  set  to  0) 


Normal  force  molecular  flow  coefficient 


Normal  force  coefficient  at  zero  angle 
of  attack 


Normal  force  coefficent  based  on  angle 
of  attack 
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Variable 


covl(7) 


cp_lnput 


Variable  Definition 


Cosine  of  previous  value  of  angle  of 
attack 


Lagrangian  multipliers 


Logical  indicating  center  of  pressure 
input 


Cosine  of  angle  between  aerodynamic 
reference  arm  and  longitudinal  axis  of 
vehicle 


Side  force  coefficient 


Squared  value  of  cth 


Cosine  of  colatitude 


Spline  coefficients  for  wind  parameter 
interpolation 


Temporary  variable  used  to  expedient 
the  calculation  of  the  moment  balance 
gimbal  angles 


Temporary  variable  used  to  expedient 
the  calculation  of  the  moment  balance 
gimbal  angles 


Temporary  variable  used  to  expedient 
the  calculation  of  the  moment  balance 
gimbal  angles 


Slope  of  side  force  coefficient  with 
respect  to  sideslip  angle 


Temporary  variable  used  to  expedient 
the  calculation  of  the  moment  balance 
gimbal  angles 


Temporary  variable  used  to  expedient 
the  calculation  of  the  moment  balance 
gimbal  angles 


Temporary  variable  used  to  expedient 
the  calculation  of  the  moment  balance 
gimbal  angles 


Temporary  variable  used  to  expedient 
the  calculation  of  the  moment  balance 
gimbal  angles 


Temporary  variable  used  to  expedient 
the  calculation  of  the  moment  balance 
gimbal  angles 


Difference  between  base  force  sea  level  m 


Status  Common 
Block 


Local 


ainit  input  Global  cp_input 
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bdri  i 


Variable 

Variable  Definition 

altitude  and  reference  altitude 

dcax 

Incremental  value  of  aerodynamic  axial 
force  coefficient 

dcmz 

Incremental  value  of  pitching  moment 
coefficient 

dcnp 

Incremental  value  of  aerodynamic 
normal  force  coefficient 

ddfab 

Derivative  of  incremental  base  force 
with  respect  to  altitude 

delte 

Effective  eleven  deflection  angle 
(currently  set  to  0) 

delwt 

Incremental  weight  overboard 

dfab 

Incremental  base  force 

dmuh 

Partial  derivative  of  coefficient  of 
viscosity  with  respect  to  attitude 

dpdh 

Partial  derivative  of  atmospheric 
pressure  with  respect  to  altitude 

drdh 

Partial  derivative  of  atmospheric 
pressure  with  respect  to  altitude 

drthe 

Partial  derivative  of  altitude  with 
respect  to  colatitude 

dsdh 

Partial  derivative  of  speed  of  sound 
with  respect  to  altitude 

dx 

Normal  component  of  aerodynamic 
moment  arm 

dxdy 

dx/dy 

dxpr 

Normal  component  of  thrust  moment 
arm  divided  by  reference  length 

dy 

Axial  component  of  aerodynamic 
moment  arm 

dy  i 

1 /dy 

dypr 

Axial  component  of  thrust  moment  arm 
divided  by  reference  length 

dz 

Lateral  component  of  aerodynamic 
moment  arm 

dZ! 

1 /dz 

el 

X component  of  local  east  direction 
cosine 

e2 

Y component  of  local  east  direction 
cosine 

Status 

Local 

Local 

Local 

Local 

Local 

Local 

Local 

Local 

Local 

Local 

Local 

Local 

Local 

Local 

Local 

Local 

Local 

Local 

Local 

Local 

Local 

Local 


Variable 


engdat(8,1 5) 


engines(15,1 


eventnum 


fabdsq 


fnbdsq 


foms(1  5) 


frcs(1  5) 


Variable  Definition 


Z component  of  local  east  direction 


Engine  data  matrix 


This  array  indicates  which  engine  from 
the  ENGDAT  array  is  being  used  for  a 
certain  thrust  event.  (0-  not  being  used, 
1 -being  used) 


Number  of  event 


Partial  derivative  of  yawing  moment 
with  respect  to  mach  number 


Temporary  variable 


Partial  derivative  of  rolling  moment 
with  respect  to  mach  number 


Temporary  variable 


Partial  derivative  of  pitching  moment 
with  respect  to  mach  number 


Temporary  variable 


Temporary  variable 


Base  axial  force 


Base  axial  force  divided  by  dynamic 
pressure 


Base  axial  force  divided  by  product  of 
area  and  Q 


Base  force  values 


Earth  flattening  coefficient 


Rolling  moment  due  to  base  force 
effects  (currently  set  to  0) 


Base  force  pitch  moment 


Base  normal  force  divided  by  dynamic 
pressure 


Base  normal  force  divided  by  dynamic 
pressure 


Base  normal  force  divided  by  the 
product  of  area  and  Q 


Yawing  moment  due  to  base  force 
effects  ( currently  set  to  0) 


Thrust  table  for  orbit  maneuver  system  lbs 


Thrust  table  for  rocket  control  system  lbs 


Feet  to  meter  conversion 
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Variable 


glim(15) 


gnu(20) 


Variable  Definition 


Side  force  caused  by  base  force  effects 
(currently  set  to  0) 


Temporary  variable 


Temporary  variable  in  gravitational 
equations 


Temporary  variable  in  gravitational 
partial  derivative  equations 


Temporary  variable  in  gravitational 
partial  derivative  equations 


Temporary  variable  in  gravitational 
partial  derivative  equations 


Acceleration  limit 


Required  level  of  thrust  to  provide 
constant  acceleration 


Partial  derivative  of  payoff  with 
respect  to  constraints 


Partial  derivative  of  x component  of 
gravitational  vector  with  respect  to 
plumbiine  x position  coordinate 


Partial  derivative  of  y component  of 
gravitational  vector  with  respect  to 
plumbline  x position  coordinate 


Partial  derivative  of  y component  of 
gravitational  vector  with  respect  to 
plumbline  y position  coordinate 


Gravitational  constant  (9.80665  m/sec)  m/sec 


Partial  derivative  of  z component  of 
gravitational  vector  with  respect  to 
plumbline  x position  coordinate 


Partial  derivative  of  z component  of 
gravitational  vector  with  respect  to 
plumbline  y position  coordinate 


Partial  derivative  of  z component  of 
gravitational  vector  with  respect  to 
plumbiine  z position  coordinate 


Altitude  used  to  interpolate  for 
atmospheric  parameters 


Altitude  bias 


Altitude  used  to  interpolate  for  base 
force  effects 


Temporary  variable  used  in  heating 
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Variable 

Variable  Definition 

equation 

hratel 

Temporary  variable  used  in  heating 
equation 

hrate2 

Temporary  variable  used  in  stagnation 
heating  equation 

hrate3 

Temporary  variable  used  in  calculation 
of  heating  rate  partial  derivative 

hrate4 

Temporary  variable  used  in  calculation 
of  heating  rate  partial  derivative 

hrateS 

Temporary  variable  used  in  calculation 
of  heating  rate  partial  derivative 

iatmos 

Atmospheric  routine  indicator 

ithr 

Thrust  event  index  number 

itol(1  5) 

Flag  indicating  thrust  event  use  of  delta 
aerodynamic  coefficients  and  base  force 

jthrot(  1 5) 

Index  indicating  number  of  times  the 
acceleration  limit  has  been  reached 
within  a given  thrust  event 

kcytab 

Attitude  control  table  index 

kk 

Index  to  indicate  number  of  tables  to 
interpolate 

kml 

index 

ktbl 

Parameter  for  Tabs  common  array 

kwta(7) 

Flag  indicating  pitch  only  (1)  or  pitch 
and  yaw  (2)  attitude  control 

latcg 

Lateral  center  of  gravity  component 

iatcgp 

Partial  derivative  of  lateral  CG  with 
respect  to  mass 

loncg 

Total  longitudinal  center  of  gravity 

loncgp 

Partial  derivative  of  total  longitudinal 
CG  with  respect  to  mass 

lstge(  1 5) 

Aerodynamic  coefficient  flag  to 
distinguish  stages 

m 1 

Index  used  for  linear  interpolation  for 
thrust  tail  option 

maxhat 

Index  used  to  indicate  the  number  of  the 
constraint  used  for  the  maximum 
heating  constraint 

max_qalp 

Base  force  tables 

Status  Common 
Block 


ainit  input  Global  ardc 


athrev  input  Global  agen3 
output 


ainit  input  Global  delfab 


atilt{gli  input  Global  mps 


bthrev  | input  Global  agen3 


Loca 


Local 


Local 


amit  input  Global  agen3 


ainit  input  Global  agen3 


Local 


output  Global  heat 


Variable 

Variable  Definition 

Units 

Source 

I/O 

Status 

Common 

Block 

mbs1  9 

Previous  index  for  viscous  drag 
interpolation  in  backwards  Integration 

output 

Global 

vaero 

mbs2 

Previous  Index  for  aerodynamic 
interpolation  in  backwards  integration 

output 

Global 

bodyb 

mbs31 

Previous  index  for  incremental  base 
force  interpolation 

input 

Global 

delmbs 

mbs4 

Previous  index  for  base  force 
interpolation  in  backwards  integration 

output 

Global 

bodyb 

mbs5 

Index  for  state  interpolation 

bdr1  i 

input 

Global 

bodyb 

mbs6 

Not  used 

output 

Global 

bodyb 

mmax 

Maximum  index  for  mps  engines 

Local 

mmin 

Index  of  first  active  MPS  engine 

Local 

mnmdot 

Main  engine  flowrate 

Ibs/sec 

Local 

moboos 

Booster  mass 

lbs 

Local 

momain 

Main  engine  mass 

Local 

mombal 

Flag  to  specify  the  use  of  moment 
balance  equations 

ainit 

input 

Global 

mombal 

mpflag 

Alternate  mass  properties  flag 

Global 

mpropin 

mpsflg(1  5) 

Flag  indicating  the  type  of  MPS  thrust 
simulation 

ainit 

output 

Global 

agen3 

mpsinp(1  5) 

Array  used  in  conjunction  with 
mpsflg=:6  to  denote  which  engines  (with 
respect  to  the  ENGDAT  array)  will  use 
the  throttle  table 

ainit 

input 

Global 

mpsi 

n 

Index 

Local 

nbtrgS 

Acceleration  limit  trigger  for 
backwards  integration 

bakrn 

input 

Global 

bakmt 

nchiot(6) 

Optimization  flag  used  with  branch 
trajectory  option 

ainit 

input 

Global 

mult 

ncnrs(5) 

Number  of  constraints  at  restart 

ainit 

input 

Global 

rest 

nent 

Number  of  points  in  state  variable 
tables 

bakrn 

input 

Global 

bgen3 

nobase 

Flag  indicating  that  no  base  force  will  be 
calculated  after  the  thrust  event 
specified  by  nobase 

ainit 

input 

Global 

agen3 

noevnt(5) 

Number  of  thrust  events  per  stage 

ainit 

output 

Global 

agen3 

norcg 

Total  normal  component  of  center  of 
gravity 

in 

Local 

norcgp 

Derivative  of  normal  CG  with  respect  to 

in/lbs 

Local 

norcgp 


in/lbs 


Local 


Variable 

Variable  Definition 
mass 

noss 

Number  of  constraints 

nossmi 

Index  (noss  • 1) 

nowind 

Logical  flag  indicating  no  wind 
calculation 

nstage 

Index  number  of  current  stage 

nsyst(1  5) 

Index  array  which  specifies  the  type  of 
engines  that  will  be  used  for  each  thrust 
event 

nvrst(5) 

Array  specifying  the  thrust  events 
where  intermediate  constraints  will  be 
imposed 

nwind 

Number  of  tabular  values  in  wind 
parameter  tables 

olda 

Past  value  of  angle  of  attack 

oiow 

Orbiter  liftoff  weight 

omass 

One  divided  by  vehicle  mass 

omx 

X component  of  earth  spin  vector  (same 
as  a12w) 

omy 

Y component  of  earth  spin  vector 

omz 

Z component  of  earth  spin  vector  (same 
as  a12w) 

othr 

1 ./thrust 

P1 

Temporary  variable 

p11 

Temporary  variable 

p12 

Temporary  variable 

P2 

Temporary  variable 

P3 

Temporary  variable 

p4 

Temporary  variable 

p5 

Temporary  variable 

p6 

Temporary  variable 

P7 

Temporary  variable 

p8 

Temporary  variable 

p9 

Temporary  variable 

paacp 

Partial  derivative  of  total  normal  force 
component  (in  body  system)  with 
respect  to  the  pitch  attitude  angle 
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Variable 

Variable  Definition 

paacpp 

Second  partial  derivative  of  total 
normal  force  component  (in  body 
system)  with  respect  to  the  pitch 
attitude  angle 

paacpy 

Second  partial  derivative  of  total 
normal  force  component  (in  body 
system)  with  respect  to  the  pitch  and 
yaw  attitude  angles 

paacy 

Partial  derivative  of  total  normal  force 
component  (in  body  system)  with 
respect  to  the  yaw  attitude  angle 

paacyy 

Second  partial  derivative  of  total 
normal  force  component  (in  body 
system)  with  respect  to  the  yaw 
attitude  angle 

pabcp 

Partial  derivative  of  total  axial  force 
component  (in  body  system)  with 
respect  to  the  pitch  attitude  angle 

pabcpp 

Second  partial  derivative  of  total  axial 
force  component  (in  body  system)  with 
respect  to  the  pitch  attitude  angle 

pabcpy 

Second  partial  derivative  of  total  axial 
force  component  (in  body  system)  with 
respect  to  the  pitch  and  yaw  attitude 
angles 

pabcy 

Partial  derivative  of  total  axial  force 
component  (in  body  system)  with 
respect  to  the  yaw  attitude  angle 

pabcyy 

Second  partial  derivative  of  total  axial 
force  component  (in  body  system)  with 
respect  to  the  yaw  attitude  angle 

paccp 

Partial  derivative  of  total  lateral  force 
component  (in  body  system)  with 
respect  to  the  pitch  attitude  angle 

paccpp 

Second  partial  derivative  of  total 
lateral  force  component  (in  body 
system)  with  respect  to  the  pitch 
attitude  angle 

paccpy 

Second  partial  derivative  of  total 
lateral  force  component  (in  body 
system)  with  respect  to  the  pitch  and 
yaw  attitude  angles 

paccy 

Partial  derivative  of  total  lateral  force 
component  (in  body  system)  with 
respect  to  the  yaw  attitude  angle 

CD  O 


Variable 


paccyy 


pacpcy 


pacycy 


pamz_alp 


pat(1  4) 


pazwdh 


Variable  Definition 


Second  partial  derivative  of  total 
lateral  force  component  (in  body 
system)  with  respect  to  the  yaw 
attitude  angle 


Second  partial  derivative  of  angle  of 
attack  with  respect  to  the  pitch  and  yaw 
attitude  angles 


Second  partial  derivative  ofangle  of 
attack  with  respect  to  pitch  attitude 


Second  partial  derivative  of  angle  of 
attack  with  respect  to  the  pitch  and  yaw 
attitude  angles 


Partial  derivative  of  angle  of  attack 
with  respect  to  yaw  attitude  angle 


Second  partial  derivative  of  angle  of 
attack  with  respect  to  the  yaw  attitude 
angle 


Atmospheric  pressure 


Partial  derivative  of  amz  with  respect 
to  angle  of  attack 


Input/output  array  for  atmospheric 
parameters 


Partial  derivative  ofangle  of  attack  with 
respect  to  Plumbline  y velocity 
component 


Partial  derivative  ofangle  of  attack  with 
respect  to  Plumbline  z velocity 
component 


Partial  derivative  ofangle  of  attack  with 
respect  to  Plumbline  x velocity 
component 


Partial  derivative  of  angle  of  attack 
with  respect  to  Plumbline  x position 
component 


Partial  derivative  of  angle  of  attack 
with  respect  to  Plumbline  y position 
component 


Partial  derivative  of  the  wind  azimuth 
angle  with  respect  to  altitude 


Partial  derivative  of  the  wind  azimuth 
angle  with  respect  to  altitude 


Second  partial  derivative  of  sideslip 
angle  with  respect  to  pitch  attitude 
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Variable 


pbcpcp 


pbcpcy 


pbcycy 


pcacfu 


pcacfv 


pcacfw 


pcacfx 


Variable  Definition 
angle 


Second  partial  derivative  of  sideslip 
angle  with  respect  to  pitch  attitude 
angle 


Second  partial  derivative  of  sideslip 
angle  with  respect  to  pitch  and  yaw 
attitude 


Partial  derivative  of  sideslip  angle  with 
respect  to  yaw  attitude 


Second  partial  derivative  of  sideslip 
angle  with  respect  to  yaw  attitude 


Partial  derivative  of  sideslip  angle  with 
respect  toPlumbline  y velocity 
component 


Partial  derivative  of  sideslip  angle  with 
respect  toPlumbline  2 velocity 
component 


Partial  derivative  of  sideslip  angle  with 
respect  toPlumbline  x velocity 
component 


Partial  derivative  of  sideslip  angle  with 
respect  toPlumbline  x position 
component 


Partial  derivative  of  sideslip  angle  with 
respect  toPlumbline  y position 
component 


Partial  derivative  of  sideslip  angle  with 
respect  toPlumbline  x position 
component 


Partial  derivative  of  axial  force  slope 
coefficients  with  respect  to  mach 
number 


Partial  derivative  of  "cacf"  with 
respect  toPlumbline  y velocity 
component 


Partial  derivative  of  *’cacf"  with 
respect  toPlumbline  z velocity 
component 


Partial  derivative  of  *’cacf"  with 
respect  toPlumbline  x velocity 
component 


Partial  derivative  of  ’’cacf*'  with 
respect  toPlumbline  x position 
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Variable 

Variable  Definition 

component 

pcacfy 

Partial  derivative  of  ”cacr  with 
respect  toPlumbline  y position 
component 

pcacfz 

Partial  derivative  of  "cacf”  with 
respect  toPlumbline  z position 
component 

pcadm 

Partial  derivative  of  base  axial  force 
with  respect  to  mach  number  (currently 
set  to  0) 

pcamfu 

Partial  derivative  of  "camf”  with 
respect  toPlumbline  y velocity 
component 

pcamfv 

Partial  derivative  of  *'camf"  with 
respect  toPlumbline  z velocity 
component 

pcamfw 

Partial  derivative  of  "camf**  with 
respect  toPlumbline  x velocity 
component 

pcamfx 

Partial  derivative  of  "camf"  with 
respect  toPlumbline  x position 
component 

pcamfy 

Partial  derivative  of  "camf"  with 
respect  toPlumbline  y position 
component 

pcamfz 

Partial  derivative  of  "camf"  with 
respect  toPlumbline  z position 
component 

pcaom 

Partial  derivative  of  zero  alpha  axial 
force  coefficients  with  respect  to  mach 
number 

pcau 

Partial  derivative  of  axial  force 
coefficient  with  respect  toPlumbline  y 
velocity  component 

pcav 

Partial  derivative  of  axial  force 
coefficient  with  respect  toPlumbline  z 
velocity  component 

pc  aw 

Partial  derivative  of  axial  force 
coefficient  with  respect  toPlumbline  x 
velocity  component 

Status 


Local 


Local 


Local 


Local 


Local 


Local 


Local 


Local 


Local 


Local 


Local 


Local 


Local 


pcax 


Partial  derivative  of  axial  force 
coefficient  with  respect  toPlumbline  x 
position  component 


Local 


Variable 

Variable  Definition 

pcay 

Partial  derivative  of  axial  force 
coefficient  with  respect  toPlumbline  y 
position  component 

pcaz 

Partial  derivative  of  axial  force 
coefficient  with  respect  toPlumbline  z 
position  component 

peg 

Derivative  of  center  of  gravity 
components  with  respect  to  mass 

pcibm 

Partial  derivative  of  rolling  moment 
slope  coefficients  with  respect  to  mach 
number 

pciom 

Partial  derivative  of  zero  beta  rolling 
moment  coefficients  with  respect  to 
mach  number 

pc  mam 

Partial  derivative  of  pitching  moment 
slope  coefficients  with  respect  to  mach 
number 

pemefu 

Partial  derivative  of  ‘‘emef"  with 
respect  toPlumbline  y velocity 
component 

pemefv 

Partial  derivative  of  "emef"  with 
respect  toPlumbline  z velocity 
component 

pemefw 

Partial  derivative  of  "emef"  with 
respect  toPlumbline  x velocity 
component 

pemefx 

Partial  derivative  of  "emef"  with 
respect  toPlumbline  x position 
component 

pemefy 

Partial  derivative  of  "emef"  with 
respect  toPlumbline  y position 
component 

pemefz 

Partial  derivative  of  ‘'emef"  with 
respect  toPlumbline  z position 
component 

pemdm 

Partial  derivative  of  eleven  pitching 
moment  with  respect  to  mach  number 
(currently  set  to  0) 

pcmmfu 

Partial  derivative  of  "emrnf"  with 
respect  toPlumbline  y velocity 
component 

pcmmfv 

Partial  derivative  of  "emmf"  with 
respect  toPlumbline  z velocity 
component 

Source  I/O 


Status 


ro  o 


Variable 

Variable  Definition 

pcmmfw 

Partial  derivative  of  ”cmmf”  with 
respect  toPlumbline  x velocity 
component 

pcmmfx 

Partial  derivative  of  "emmf"  with 
respect  toPlumbline  x position 
component 

pcmmfy 

Partial  derivative  of  ''emmf"  with 
respect  toPlumbline  y position 
component 

pcmmfz 

Partial  derivative  of  "cmmT  with 
respect  toPlumbline  z position 
component 

pc  mom 

Partial  derivative  of  zero  alpha  pitching 
moment  coefficients  with  respect  to 
mach  number 

pcmu 

Partial  derivative  of  pitching  moment 
coefficient  with  respect  toPlumbline  y 
velocity  component 

pcmv 

Partial  derivative  of  pitching  moment 
coefficient  with  respect  toPlumbline  z 
velocity  component 

pcmw 

Partial  derivative  of  pitching  moment 
coefficient  with  respect  toPlumbline  x 
velocity  component 

pcmx 

Partial  derivative  of  pitching  moment 
coefficient  with  respect  toPlumbline  x 
position  component 

pcmy 

Partial  derivative  of  pitching  moment 
coefficient  with  respect  toPlumbline  y 
position  component 

pcmz 

Partial  derivative  of  pitching  moment 
coefficient  with  respect  toPlumbline  z 
position  component 

pen  am 

Partial  derivative  of  normal  force  slope 
coefficients  with  respect  to  mach 
number 

penbm 

Partial  derivative  of  yawing  moment 
slope  coefficients  with  respect  to  mach 
number 

penbom 

Partial  derivative  of  zero  beta  yawing 
moment  coefficients  with  respect  to 
mach  number 

penefu 

Partial  derivative  of  ”cncf"  with 
respect  toPlumbline  y velocity 

Variable 

Variable  Definition 

component 

pcncfv 

Partial  derivative  of  ”cncf"  with 
respect  toPlumbline  z velocity 
component 

pcncfw 

Partial  derivative  of  ’’cncf"  with 
respect  toPlumbline  x velocity 
component 

pcncfx 

Partial  derivative  of  "cncf"  with 
respect  toPlumbline  x position 
component 

pcncfy 

Partial  derivative  of  "cncf"  with 
respect  toPlumbline  y position 
component 

pcncfz 

Partial  derivative  of  "cncf"  with 
respect  toPlumbline  z position 
component 

pcndm 

Partial  derivative  of  eleven  normal 
force  with  respect  to  mach  number 
(currently  set  to  0) 

pcnmfu 

Partial  derivative  of  "enmf"  with 
respect  toPlumbline  y velocity 
component 

pcnmfv 

Partial  derivative  of  "enmf"  with 
respect  toPlumbline  z velocity 
component 

pcnmfw 

Partial  derivative  of  "enmf"  with 
respect  toPlumbline  x velocity 
component 

pcnmfx 

Partial  derivative  of  "enmf"  with 
respect  toPlumbline  x position 
component 

pcnmfy 

Partial  derivative  of  "enmf"  with 
respect  toPlumbline  y position 
component 

pcnmfz 

Partial  derivative  of  "enmf"  with 
respect  toPlumbline  z position 
component 

pcnom 

Partial  derivative  of  zero  alpha  normal 
force  coefficients  with  respect  to  mach 
number 

pcnu 

Partial  derivative  of  normal  force 
coefficient  with  respect  toPlumbline  y 
velocity  component 
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bdri  i 


Variable 

Variable  Definition 

pcnv 

Partial  derivative  of  normal  force 
coefficient  with  respect  toPlumbline  z 
velocity  component 

pcnw 

Partial  derivative  of  normal  force 
coefficient  with  respect  toPlumbline  x 
velocity  component 

pcnx 

Partial  derivative  of  normal  force 
coefficient  with  respect  toPlumbline  x 
position  component 

pcny 

Partial  derivative  of  normal  force 
coefficient  with  respect  toPlumbline  y 
position  component 

pcnz 

Partial  derivative  of  normal  force 
coefficient  with  respect  toPlumbline  z 
position  component 

pcrhom 

Partial  derivative  of  ”crho"  with 
respect  to  vehicle  mass 

pcsu 

Partial  derivative  of  side  force 
coefficient  with  respect  toPlumbline  y 
velocity  component 

pcsv 

Partial  derivative  of  side  force 
coefficient  with  respect  toPlumbline  z 
velocity  component 

pcsw 

Partial  derivative  of  side  force 
coefficient  with  respect  toPlumbline  x 
velocity  component 

pcsx 

Partial  derivative  of  side  force 
coefficient  with  respect  toPlumbline  x 
position  component 

pcsy 

Partial  derivative  of  side  force 
coefficient  with  respect  toPlumbline  y 
position  component 

pcsz 

Partial  derivative  of  side  force 
coefficient  with  respect  toPlumbline  z 
position  component 

pcxxm 

Partial  derivative  of  "cxx"  with 
respect  to  vehicle  mass 

pcxym 

Partial  derivative  of  ”cxy"  with 
respect  to  vehicle  mass 

pcxzm 

Partial  derivative  of  "cxz"  with  respect 
to  vehicle  mass 

pcybm 

Partial  derivative  of  side  force  slope 
coefficients  with  respect  to  mach 

Status 

Local 

Local 

Local 

Local 

Local 

Local 

Local 

Local 

Local 

Local 

Local 

Local 

Local 

Local 

Local 

Local 
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O CD 


Variable 


pcyxm 


pcyym 


pdelm 


pdxcp 


pdxcpp 


pdxcpy 


pdxcy 


pdxcyy 


pdycp 


pdycpp 


pdycpy 


pdycy 


Variable  Definition 


number 


Partial  derivative  of  zero  beta  side 
force  coefficients  with  respect  to  mach 
number 


Partial  derivative  of  "cyx"  with 
respect  to  vehicle  mass 


Partial  derivative  of  "cyy”  with 
respect  to  vehicle  mass 


Partial  derivative  of  "cyz"  with  respect 
to  vehicle  mass 


Partial  derivative  of  '’czx"  with  respect 
to  vehicle  mass 


Partial  derivative  of  "czy"  with  respect 
to  vehicle  mass 


Partial  derivative  of  elevon  deflection 
angle  with  respect  to  vehicle  mass 
(currently  set  to  0) 


Partial  derivative  of  X acceleration 
component  with  respect  to  pitch  attitude 
angle 


Second  partial  derivative  of  X 
acceleration  component  with  respect  to 
pitch  attitude  angle 


Second  partial  derivative  of  X 
acceleration  component  with  respect  to 
pitch  and  yaw  attitude  angles 


Partial  derivative  of  X acceleration 
component  with  respect  to  yaw  attitude 
angle 


Second  partial  derivative  of  X 
acceleration  component  with  respect  to 
yaw  attitude  angle 


Partial  derivative  of  Y acceleration 
component  with  respect  to  pitch  attitude 
angle 


Second  partial  derivative  of  Y 
acceleration  component  with  respect  to 
pitch  attitude  angle 


Second  partial  derivative  of  Y 
acceleration  component  with  respect  to 
pitch  and  yaw  attitude  angles 


Partial  derivative  of  Y acceleration 
component  with  respect  to  yaw  attitude 
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Variable 

Variable  Definition 

angle 

pdycyy 

Second  partial  derivative  of  Y 
acceleration  component  with  respect  to 
yaw  attitude  angle 

pdyprm 

Partial  derivative  of  longitudinal 
component  of  moment  arm  with  respect 
to  mass 

pdzcp 

Partial  derivative  of  Z acceleration 
component  with  respect  to  pitch  attitude 
angle 

pdzcpp 

Second  partial  derivative  of  Z 
acceleration  component  with  respect  to 
pitch  attitude  angle 

pdzcpy 

Second  partial  derivative  of  Z 
acceleration  component  with  respect  to 
pitch  and  yaw  attitude  angles 

pdzcy 

Partial  derivative  of  Z acceleration 
component  with  respect  to  yaw  attitude 
angle 

pdzcyy 

Partial  derivative  of  Z acceleration 
component  with  respect  to  yaw  attitude 
angle 

pel  X 

Partial  derivative  of  the  x component  of 
the  east  direction  cosine  vector  with 
respect  to  the  Plumbline  x position 
component 

pely 

Partial  derivative  of  the  x component  of 
the  east  direction  cosine  vector  with 
respect  to  the  Plumbline  y position 
component 

pelz 

Partial  derivative  of  the  x component  of 
the  east  direction  cosine  vector  with 
respect  to  the  Plumbline  z position 
component 

pe2x 

Partial  derivative  of  the  y component  of 
the  east  direction  cosine  vector  with 
respect  to  the  Plumbline  x position 
component 

pe2y 

Partial  derivative  of  the  y component  of 
the  east  direction  cosine  vector  with 
respect  to  the  Plumbline  y position 
component 

pe2z 

Partial  derivative  of  the  y component  of 
the  east  direction  cosine  vector  with 

Variable 

Variable  Definition 

respect  to  the  Plumbline  z position 
component 

pe3x 

Partial  derivative  of  the  z component  of 
the  east  direction  cosine  vector  with 
respect  to  the  Plumbline  x position 
component 

pe3y 

Partial  derivative  of  the  z component  of 
the  east  direction  cosine  vector  with 
respect  to  the  Plumbline  y position 
component 

pe3z 

Partial  derivative  of  the  z component  of 
the  east  direction  cosine  vector  with 
respect  to  the  Plumbline  z position 
component 

pfabh 

Partial  derivative  of  axial  base  force 
with  respect  to  altitude 

pfabq 

Partial  derivative  of  axial  base  force 
with  respect  to  dynamic  pressure 

pfkg 

Conversion  for  pounds  to  kilograms 

pfibh 

Partial  derivative  of  "fib"  with  respect 
to  altitude  (currently  set  to  0) 

pfmbh 

Partial  derivative  of  base  force  pitching 
moment  with  respect  to  altitude 

pfnbh 

Partial  derivative  of  normal  base  force 
with  respect  to  altitude 

pfnmbh 

Partial  derivative  of  "fnmb"  with 
respect  to  altitude  (currently  set  to  0) 

pfnmbh 

Partial  derivative  of  "fnmb"  with 
respect  to  altitude  (currently  set  to  0) 

pfxx 

Partial  derivative  of  normal  component 
of  fixed  thrust  vector  with  respect  to 
plumbline  x position  component 

pfxy 

Partial  derivative  of  normal  component 
of  fixed  thrust  vector  with  respect  to 
plumbline  y position  component 

pf  xz 

Partial  derivative  of  normal  component 
of  fixed  thrust  vector  with  respect  to 
plumbline  z position  component 

pfybh 

Partial  derivative  of  "fyb"  with  respect 
to  altitude  (currently  set  to  0) 

pfyx 

Partial  derivative  of  longitudinal 
component  of  fixed  thrust  vector  with 
respect  to  plumbline  x position 
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Status  Common 
Block 


kg/lbs  ainit 


input  Global  const 


Local 


bdr1  i 


Variable  Definition 


component 

Partial  derivative  of  longitudinal 
component  of  fixed  thrust  vector  with 
respect  to  plumbline  y position 
component 

Partial  derivative  of  longitudinal 
component  of  fixed  thrust  vector  with 
respect  to  plumbline  2 position 
component 

Partial  derivative  of  lateral  component 
of  thrust  vector  with  respect  to 
Plumbline  x position  component 

Partial  derivative  of  lateral  component 
of  thrust  vector  with  respect  to 
Plumbline  y position  component 

Partial  derivative  of  lateral  component 
of  thrust  vector  with  respect  to 
Plumbline  2 position  component 

Temporary  variable 

Partial  derivative  of  heat  rate  with 
respect  u velocity  component 

Partial  derivative  of  heal  rate  with 
respect  v velocity  component 

Partial  derivative  of  heat  rate  with 
respect  w velocity  component 

Partial  derivative  of  heat  rate  with 
respect  x position  component 

Partial  derivative  of  heat  rate  with 
respect  y position  component 

Partial  derivative  of  heat  rate  with 
respect  2 position  component 

Partial  derivative  of  vehicle  altitude 
with  respect  to  Plumbline  x position 
component 

Partial  derivative  ofvehicle  altitude 
with  respect  to  Plumbline  y position 
component 

Partial  derivative  ofvehicle  altitude 
with  respect  to  Plumbline  2 position 
component 

Partial  derivative  of  Knudsen’s  number 
with  respect  toPlumbiine  y velocity 
component 
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bdr1  i 


Variable 

Variable  Definition 

Units 

pknudv 

Partial  derivative  of  Knudsen’s  number 
with  respect  toPlumbline  z velocity 
component 

pknudw 

Partial  derivative  of  Knudsen's  number 
with  respect  toPlumbline  x velocity 
component 

pknudx 

Partial  derivative  of  Knudsen's  number 
with  respect  toPlumbline  x position 
component 

pknudy 

Partial  derivative  of  Knudsen’s  number 
with  respect  toPlumbline  y position 
component 

pknudz 

Partial  derivative  of  Knudsen's  number 
with  respect  toPlumbline  z position 
component 

pmaxcp 

Partial  derivative  of  aerodynamic 
yawing  moment  with  respect  to  pitch 
attitude 

pmaxcy 

Partial  derivative  of  aerodynamic 
yawing  moment  with  respect  to  yaw 
attitude 

pmaxm 

Partial  derivative  of  aerodynamic 
yawing  moment  with  respect  to  vehicle 
mass 

pmaxu 

Partial  derivative  of  aerodynamic 
yawing  moment  with  respect  to  Y 
velocity  component 

pmaxv 

Partial  derivative  of  aerodynamic 
yawing  moment  with  respect  to  Z 
velocity  component 

pmaxw 

Partial  derivative  of  aerodynamic 
yawing  moment  with  respect  to  X 
velocity  component 

pmaxx 

Partial  derivative  of  aerodynamic 
yawing  moment  with  respect  to  X 
position  component 

pmaxy 

Partial  derivative  of  aerodynamic 
yawing  moment  with  respect  to  Y 
position  component 

pmaxz 

Partial  derivative  of  aerodynamic 
yawing  moment  with  respect  to  Z 
position  component 

pmaycp 

Partial  derivative  of  aerodynamic 
rolling  moment  with  respect  to  pitch 
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Source 


I/O  Status 


Local 


Local 


Local 


Local 


Local 


Local 


Local 


Local 


Local 


Local 


Local 


Local 


Local 


Local 


Local 


o m 


Variable 

Variable  Definition 
attitude 

pmaycy 

Partial  derivative  of  aerodynamic 
rolling  moment  with  respect  to  yaw 
attitude 

pmaym 

Partial  derivative  of  aerodynamic 
rolling  moment  with  respect  to  vehicle 
mass 

pmayu 

Partial  derivative  of  aerodynamic 
rolling  moment  with  respect  to  Y 
velocity  component 

pmayv 

Partial  derivative  of  aerodynamic 
rolling  moment  with  respect  to  2 
velocity  component 

pmayw 

Partial  derivative  of  aerodynamic 
rolling  moment  with  respect  to  X 
velocity  component 

pmayx 

Partial  derivative  of  aerodynamic 
rolling  moment  with  respect  to  X 
position  component 

pmayy 

Partial  derivative  of  aerodynamic 
rolling  moment  with  respect  to  Y 
position  component 

pmayz 

Partial  derivative  of  aerodynamic 
rolling  moment  with  respect  to  Z 
position  component 

pmazcp 

Partial  derivative  of  aerodynamic 
pitching  moment  with  respect  to  pitch 
attitude 

pmazcy 

Partial  derivative  of  aerodynamic 
pitching  moment  with  respect  to  yaw 
attitude 

pmazm 

Partial  derivative  of  aerodynamic 
pitching  moment  with  respect  to  vehicle 
mass 

pmazu 

Partial  derivative  of  aerodynamic 
pitching  moment  with  respect  to 
Plumbline  Y velocity  component 

pmazv 

Partial  derivative  of  aerodynamic 
pitching  moment  with  respect  to 
Plumbline  Z velocity  component 

pmazw 

Partial  derivative  of  aerodynamic 
pitching  moment  with  respect  to 
Plumbline  X velocity  component 
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Variable 

Variable  Definition 

pmazx 

Partial  derivative  of  aerodynamic 
pitching  moment  with  respect  to 
Plumbline  X position  component 

pmazy 

Partial  derivative  of  aerodynamic 
pitching  moment  with  respect  to 
Plumbline  Y position  component 

pmazz 

Partial  derivative  of  aerodynamic 
pitching  moment  with  respect  to 
Plumbline  Z position  component 

pmu 

Partial  derivative  of  mach  number  with 
respect  to  Plumbline  Y velocity 
component 

pmv 

Partial  derivative  of  mach  number  with 
respect  to  Plumbline  z velocity 
component 

pmw 

Partial  derivative  of  mach  number  with 
respect  to  Plumbline  x velocity 
component 

pmx 

Partial  derivative  of  mach  number  with 
respect  to  Plumbline  x position 
component 

pmy 

Partial  derivative  of  mach  number  with 
respect  to  Plumbline  y position 
component 

pmz 

Partial  derivative  of  mach  number  with 
respect  to  Plumbline  z position 
component 

ponly 

Logical  pitch  denoting  only  pitch  attitude 
being  simulated 

ppicpp 

Second  partial  derivative  of  ’’tandpi” 
with  respect  to  pitch  attitude 

ppicpy 

Second  partial  derivative  of  tyl  with 
respect  to  pitch  and  yaw  attitude  angle 

ppicyy 

Second  partial  derivative  of  "tandpi" 
with  respect  to  yaw  attitude 

pp2cpp 

Second  partial  derivative  of  "tandp2" 
with  respect  to  pitch  attitude 

pp2cpy 

Second  partial  derivative  of  1y2  with 
respect  to  pitch  and  yaw  attitude  angles 

pp2cyy 

Second  partial  derivative  of  "landp2" 
with  respect  to  yaw  attitude 

pqrefh 

Partial  derivative  of  reference  Q with 
respect  to  altitude 

Source  I/O 


O CQ 


Variable 

Variable  Definition 

pqu 

Partial  derivative  of  dynamic  pressure 
with  respect  to  u velocity  component 

pqv 

Partial  derivative  of  dynamic  pressure 
with  respect  to  v velocity  component 

pqw 

Partial  derivative  of  dynamic  pressure 
with  respect  to  w velocity  component 

pqx 

Partial  derivative  of  dynamic  pressure 
with  respect  to  x position  component 

pqy 

Partial  derivative  of  dynamic  pressure 
with  respect  to  y position  component 

pqz 

Partial  derivative  of  dynamic  pressure 
with  respect  to  z position  component 

prop(6) 

Propellant  weight  for  each  engine  type 

prxx 

Partial  derivative  of  X component  of  the 
radius  unit  vector  with  respect  to  the  X 
coordinate 

prxy 

Partial  derivative  of  the  x component  of 
the  radius  vector  with  respect  to  the 
Plumbline  y position  component 

prxz 

Partial  derivative  of  the  x component  of 
the  radius  vector  with  respect  to  the 
Plumbline  z position  component 

pryy 

Partial  derivative  of  the  y component  of 
the  radius  vector  with  respect  to  the 
Plumbline  y position  component 

pryz 

Partial  derivative  of  the  y component  of 
the  radius  vector  with  respect  to  the 
Plumbline  z position  component 

przz 

Partial  derivative  of  the  z component  of 
the  radius  vector  with  respect  to  the 
Plumbline  z position  component 

psrhom 

Partial  derivative  of  "srho”  with 
respect  to  vehicle  mass 

ptandp1_alp 

Partial  derivative  of  tandpi  with 
respect  to  angle  of  attack 

ptandp2_alp 

Partial  derivative  of  tandp2  with 
respect  to  angle  of  attack 

ptm 

Partial  derivative  of  thrust  magnitude 
with  respect  to  vehicle  mass 

ptmzm 

Partial  derivative  of  lateral  thrust 
moment  component  with  respect  to 
mass 
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bdri  i 


Variable 

Variable  Definition 

Units 

Source 

I/O 

Status 

Common 

Block 

ptmzx 

Partial  derivative  of  lateral  thrust 
moment  component  with  respect  to  X 
position  component 

Local 

ptmzy 

Partial  derivative  of  lateral  thrust 
moment  component  with  respect  to  Y 
position  component 

Local 

ptmzz 

Partial  derivative  of  lateral  thrust 
moment  component  with  respect  to  Z 
position  component 

Local 

ptn 

Conversion  from  pounds  to  newtons 

nt/lbs 

ainit 

input 

Global 

const 

ptpicp 

Partial  derivative  of  "tandpV  with 
respect  to  pitch  attitude 

Local 

ptpl  cy 

Partial  derivative  of  ’’tandpV  with 
respect  to  yaw  attitude 

Local 

ptpl  m 

Partial  derivative  of  “tandpi"  with 
respect  to  vehicle  mass 

Local 

ptp1  u 

Partial  derivative  of  "tandpi"  with 
respect  to  Plumbline  y velocity 
component 

Local 

ptp1  V 

Partial  derivative  of  "tandpi " with 
respect  to  Plumbline  z velocity 
component 

Local 

ptpl  w 

Partial  derivative  of  "tandpi"  with 
respect  to  Plumbline  x velocity 
component 

Local 

ptpl  X 

Partial  derivative  of  "tandpi"  with 
respect  to  Plumbline  x position 
component 

Local 

ptply 

Partial  derivative  of  "tandpi"  with 
respect  to  Plumbline  y position 
component 

Local 

ptplz 

Partial  derivative  of  "tandpi"  with 
respect  to  Plumbline  z position 
component 

Local 

ptp2cp 

Partial  derivative  of  "tandp2"  with 
respect  to  pitch  attitude 

Local 

ptp2cy 

Partial  derivative  of  "tandp2"  with 
respect  to  yaw  attitude 

Local 

ptp2m 

Partial  derivative  of  "tandp2"  with 
respect  to  vehicle  mass 

Local 

ptp2u 

Partial  derivative  of  "tandp2"  with 
respect  to  Plumbline  y velocity 
component 

Local 
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Variable 


Variable  Definition 


Units 


Source  I/O 


Status 


ptp2v 

Partial  derivative  of  "tandp2”  with 
respect  to  Plumbline  z velocity 
component 

Local 

ptp2w 

Partial  derivative  of  ”tandp2”  with 
respect  to  Plumbline  x velocity 
component 

Local 

ptp2x 

Partial  derivative  of  "tandp2"  with 
respect  to  Plumbline  x position 
component 

Local 

ptp2y 

Partial  derivative  of  "tandp2”  with 
respect  to  Plumbline  y position 
component 

Local 

ptp2z 

Partial  derivative  of  ”tandp2'*  with 
respect  to  Plumbline  z position 
component 

Local 

ptx 

Partial  derivative  of  vertical  thrust 
component  in  body  coordinate  system 
with  respect  to  plumbline  z velocity 
component 

Local 

ptxcp 

Second  partial  derivative  of  normal 
thrust  component  in  body  coordinate 
system  with  respect  to  pitch  and  yaw 
attitude  angles 

Local 

ptxcpp 

Second  partial  derivative  of  vertical 
thrust  component  in  body  coordinate 
system  with  respect  to  pitch  attitude 
angle 

Local 

ptxcpy 

Second  partial  derivative  of  normal 
thrust  component  in  body  coordinate 
system  with  respect  to  pitch  and  yaw 
attitude  angles 

Local 

ptxcy 

Second  partial  derivative  of  normal 
thrust  component  in  body  coordinate 
system  with  respect  to  yaw  attitude 
angle 

Local 

ptxcyy 

Second  partial  derivative  of  normal 
thrust  component  in  body  coordinate 
system  with  respect  to  yaw  attitude 
angle 

Local 

ptxfm 

Temporary  variable 

Local 

Partial  derivative  of  norma!  component 
of  total  thrust  vector  with  respect  to 
vehicle  mass 

Local 

ptxp_alp 

Partial  derivative  of  normal  component 

Local 

. 

Variable 

Variable  Definition 

of  thrust  in  alternate  system  with 
respect  to  angle  of  attack 

Units 

Source 

I/O 

Status 

ptxu 

Partial  derivative  of  vertical  thrust 
component  in  body  coordinate  system 
with  respect  to  plumbline  y velocity 
component 

Local 

ptxv 

Partial  derivative  of  vertical  thrust 
component  in  body  coordinate  system 
with  respect  to  plumbline  z velocity 
component 

Local 

ptx  w 

Partial  derivative  of  vertical  thrust 
component  in  body  coordinate  system 
with  respect  to  plumbiine  x velocity 
component 

Local 

ptxx 

Partial  derivative  of  normal  component 
of  total  thrust  vector  with  respect  to 
plumbline  x position  coordinate 

Local 

pt  X xt 

Partial  derivative  of  normal  component 
of  thrust  vector  with  respect  to 
Plumbline  x position  component 

Local 

ptxy 

Partial  derivative  of  normal  component 
of  total  thrust  vector  with  respect  to 
plumbline  y position  coordinate 

Local 

ptxyt 

Partial  derivative  of  normal  component 
of  thrust  vector  with  respect  to 
Plumbline  y position  component 

Local 

ptxz 

Partial  derivative  of  normal  component 
of  total  thrust  vector  with  respect  to 
plumbline  z position  coordinate 

Local 

ptxzt 

Partial  derivative  of  normal  component 
of  thrust  vector  with  respect  to 
Plumbline  z position  component 

Local 

ptx_alp 

Partial  derivative  of  normal  component 
of  thrust  with  respect  to  angle  of  attack 

Local 

pty 

Partial  derivative  of  ty2  with  respect 
to  plumbline  z velocity  component 

Local 

pty  1 cp 

Partial  derivative  of  tyl  with  respect 
to  pitch  attitude  angle 

Local 

pty  1 cy 

Partial  derivative  of  tyl  with  respect 
to  yaw  attitude  angle 

Local 

ptylm 

Partial  derivative  of  "tyr  with  respect 
to  vehicle  mass 

Local 

pty  1 u 


Partial  derivative  of  tyl  with  respect 


Local 


Variable 


pty  1 V 


pty  1 w 


pty  1 X 


pty1  y 


plyl  _alp 


pty2cp 


pty2cy 


pty2m 


pty2v 


pty2w 


pty2x 


pty2y 


pty2z 


ply2_alp 


ptycpp 


Variable  Definition 


to  plumbline  y velocity  component 


Partial  derivative  of  ty1  with  respect 
to  plumbline  z velocity  component 


Partial  derivative  of  ty1  with  respect 
to  plumbline  x velocity  component 


Partial  derivative  of  tyl  with  respect 
to  plumbline  x position  component 


Partial  derivative  of  ty1  with  respect 
to  plumbline  y position  component 


Partial  derivative  of  tyl  with  respect 
to  plumbline  z position  component 


Partial  derivative  of  longitudinal 
component  of  thrust  for  engine  1 with 
respect  to  angle  of  attack 


Partial  derivative  of  ty2  with  respect 
to  pitch  attitude  angle 


Partial  derivative  of  ty2  with  respect 
to  yaw  attitude  angle 


Partial  derivative  of  "ty2"  with  respect 
to  vehicle  mass 


Partial  derivative  of  ty2  with  respect 
to  plumbline  y velocity  component 


Partial  derivative  of  ty2  with  respect 
to  plumbline  z velocity  component 


Partial  derivative  of  ty2  with  respect 
to  plumbline  x velocity  component 


Partial  derivative  of  ty2  with  respect 
to  plumbline  x position  component 


Partial  derivative  of  ty2  with  respect 
to  plumbline  y position  component 


Partial  derivative  of  ty2  with  respect 
to  plumbline  z position  component 


Partial  derivative  of  longitudinal 
component  of  thrust  for  engine  2 with 
respect  to  angle  of  attack 


Second  partial  derivative  of  longitudinal 
component  of  thrust  vector  in  body 
coordinate  system  with  respect  to  pitch 
and  yaw  attitude  angles 


Second  partial  derivative  of  longitudinal 
thrust  component  in  body  coordinate 
system  with  respect  to  pitch  attitude 


O CD 


Variable 

Variable  Definition 

angle 

plycpy 

Second  partial  derivative  of  longitudinal 
component  of  thrust  vector  in  body 
coordinate  system  with  respect  to  pitch 
and  yaw  attitude  angles 

ptycy 

Second  partial  derivative  of  longitudinal 
component  of  thrust  vector  in  body 
coordinate  system  with  respect  to  yaw 
attitude  angle 

ptycyy 

Second  partial  derivative  of  longitudinal 
component  of  thrust  vector  in  body 
coordinate  system  with  respect  to  yaw 
attitude  angle 

pty  fm 

Partial  derivative  of  longitudinal 
component  of  thrust  with  respect  to 
mass 

pty  m 

Partial  derivative  of  "tandy"  with 
respect  to  vehicle  mass 

ptyp_alp 

Partial  derivative  of  longitudinal 
component  of  thrust  in  alternate  system 
with  respect  to  angle  of  attack 

ptyu 

Partial  derivative  of  ’’tandy"  with 
respect  to  Plumbline  Y velocity 
component 

ptyv 

Partial  derivative  of  ’’tandy”  with 
respect  to  Plumbline  Z velocity 
component 

pty  w 

Partial  derivative  of  ’’tandy”  with 
respect  to  Plumbline  X velocity 
component 

ptyx 

Partial  derivative  of  ’’tandy"  with 
respect  to  Plumbline  X position 
component 

pty  xt 

Partial  derivative  of  thrust  magnitude 
with  respect  to  X position  component 

ptyy 

Partial  derivative  of  ’’tandy"  with 
respect  to  Plumbline  Y position 
component 

ptyyt 

Partial  derivative  of  axial  component  of 
thrust  vector  with  respect  to  Plumbline 
y position  component 

ptyz 

Partial  derivative  of  "tandy”  with 
respect  to  Plumbline  Z position 
component 
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Variable 


pty_alp 


ptzcpp 


ptzcpy 


ptzcyy 


ptzfm 


Variable  Definition 


Partial  derivative  of  thrust  magnitude 
with  respect  to  Z position  component 


Partial  derivative  of  longitudinal 
component  of  thrust  with  respect  to 
angle  of  attack 


Second  partial  derivative  of  lateral 
thrust  component  in  body  coordinate 
system  with  respect  to  pitch  and  yaw 
attitude  angles 


Second  partial  derivative  of  lateral 
thrust  component  in  body  coordinate 
system  with  respect  to  pitch  and  yaw 
attitude  angles 


Second  partial  derivative  of  lateral 
thrust  component  in  body  coordinate 
system  with  respect  to  pitch  attitude 
angle 


Second  partial  derivative  of  lateral 
thrust  component  in  body  coordinate 
system  with  respect  to  pitch  and  yaw 
attitude  angles 


Second  partial  derivative  of  lateral 
thrust  component  in  body  coordinate 
system  with  respect  to  yaw  attitude 
angle 


Second  partial  derivative  of  lateral 
thrust  component  in  body  coordinate 
system  with  respect  to  yaw  attitude 
angle 


Partial  derivative  of  lateral  component 
of  thrust  with  respect  to  mass 


Partial  derivative  of  lateral  component 
of  total  thrust  vector  with  respect  to 
vehicle  mass 


Partial  derivative  of  lateral  component 
of  total  thrust  vector  with  respect  to 
plumbline  y velocity  coordinate 


Partial  derivative  of  lateral  component 
of  total  thrust  vector  with  respect  to 
plumbline  z velocity  coordinate 


Partial  derivative  of  lateral  component 
of  total  thrust  vector  with  respect  to 
plumbline  x velocity  coordinate 


Partial  derivative  of  lateral  component 


O CO 


Variable 


ptz_alp 


pw2x 


pw2y 


Variable  Definition 


of  total  thrust  vector  with  respect  to 
plumbline  x position  coordinate 


Partial  derivative  of  lateral  component 
of  total  thrust  vector  with  respect  to 
plumbline  y position  coordinate 


Partial  derivative  of  lateral  component 
of  total  thrust  vector  with  respect  to 
plumbline  z position  coordinate 


Partial  derivative  of  lateral  component 
of  thrust  with  respect  to  angle  of  attack 


Partial  derivative  of  relative  velocity 
magnitude  with  respect  to  the  Plumbline 
y velocity  component 


Partial  derivative  of  relative  velocity 
magnitude  with  respect  to  the  Plumbline 
z velocity  component 


Partial  derivative  of  relative  velocity 
magnitude  with  respect  to  the  Plumbline 
X velocity  component 


Partial  derivative  of  relative  velocity 
(including  winds)  with  respect  to 
Plumbline  x position  component 


Partial  derivative  of  relative  velocity 
magnitude  with  respect  to  the  Plumbline 
y position  component 


Partial  derivative  of  relative  velocity 
(including  winds)  with  respect  to 
Plumbline  z position  component 


Partial  derivative  of  the  x component  of 
the  wind  vector  with  respect  to  the 
Plumbline  x position  component 


Partial  derivative  of  the  x component  of 
the  wind  vector  with  respect  to  the 
Plumbline  y position  component 


Partial  derivative  of  the  x component  of 
the  wind  vector  with  respect  to  the 
Plumbline  z position  component 


Partial  derivative  of  y component  of  the 
wind  vector  with  respect  to  Plumbline  x 
position  component 


Partial  derivative  of  the  y component  of 
the  wind  vector  with  respect  to  the 
Plumbline  y position  component 


Variable 


Variable  Definition 


bdri  i 


Units 


Source 


Status 


pw22 

Partial  derivative  of  y component  of  the 
wind  vector  with  respect  to  Plumbline  2 
position  component 

pw3x 

Partial  derivative  of  the  2 component  of 
the  wind  vector  with  respect  to  the 
Plumbline  x position  component 

pw3y 

Partial  derivative  of  the  z component  of 
the  wind  vector  with  respect  to  the 
Plumbline  y position  component 

pw3z 

Partial  derivative  of  the  z component  of 
the  wind  vector  with  respect  to  the 
Plumbline  2 position  component 

pwmdh 

Partial  derivative  of  the  wind  magnitude 
with  respect  to  altitude 

px1cp 

Second  partial  derivative  of  x 
component  of  direction  cosine  of  the 
normal  component  of  the  vehicle 
(xhat(1))  with  respect  to  the  pitch  and 
yaw  attitude  angles 

pxl cpp 

Second  partial  derivative  of  x 
component  of  direction  cosine  of  the 
normal  component  of  the  vehicle 
(xhat(1))  with  respect  to  the  pitch 
attitude  angle 

px1 cpy 

Second  partial  derivative  of  x 
component  of  direction  cosine  of  the 
normal  component  of  the  vehicle 
(xhat(1))  with  respect  to  the  pitch  and 
yaw  attitude  angles 

pxl  cy 

Second  partial  derivative  of  x 
component  of  direction  cosine  of  the 
normal  component  of  the  vehicle 
(xhat(1))  with  respect  to  the  yaw 
attitude  angle 

px1  cyy 

Second  partial  derivative  of  x 
component  of  direction  cosine  of  the 
normal  component  of  the  vehicle 
(xhat(1))  with  respect  to  the  yaw 
attitude  angle 

px2cp 

Second  partial  derivative  of  y 
component  of  direction  cosine  of  the 
normal  component  of  the  vehicle 
(xhat{2))  with  respect  to  the  pitch  and 
yaw  attitude  angles 

px2cpp 

Second  partial  derivative  of  y 
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O CQ 


Variable 

Variable  Definition 

component  of  direction  cosine  of  the 
normal  component  of  the  vehicle 
(xhat(2))  with  respect  to  the  pitch 
attitude  angle 

px2cpy 

Second  partial  derivative  of  y 
component  of  direction  cosine  of  the 
norma!  component  of  the  vehicle 
(xhat(2))  with  respect  to  the  pitch  and 
yaw  attitude  angles 

px2cy 

Second  partial  derivative  of  y 
component  of  direction  cosine  of  the 
normal  component  of  the  vehicle 
(xhat(2))  with  respect  to  the  yaw 
attitude  angle 

px2cyy 

Second  partial  derivative  of  y 
component  of  direction  cosine  of  the 
normal  component  of  the  vehicle 
(xhat(2))  with  respect  to  the  yaw 
attitude  angle 

px3cp 

Partial  derivative  of  xhat{3)  with 
respect  to  pitch  attitude 

px3cpp 

Second  partial  derivative  of  xhat(3) 
with  respect  to  pitch  attitude 

px3cpy 

Second  partial  derivative  of  xhat(3) 
with  respect  to  pitch  and  yaw  attitude 

px3cy 

Partial  derivative  of  xhat(3)  with 
respect  to  yaw  attitude 

px3cyy 

Second  partial  derivative  of  xhat(3) 
with  respect  to  yaw  attitude 

pxcgm 

Partial  derivative  of  normal  CG  with 
respect  to  mass 

pxcpcp 

Second  partial  derivative  of 
aerodynamic  yawing  moment  with 
respect  to  pitch  attitude 

pxcpcy 

Second  partial  derivative  of 
aerodynamic  yawing  moment  with 
respect  to  pitch  and  yaw  attitude 

pxcycy 

Second  partial  derivative  of 
aerodynamic  yawing  moment  with 
respect  to  yaw  attitude 

pxhat_alp 

Partial  derivative  of  xhat  with  respect 
to  angle  of  attack 

pxm 

Partial  derivative  of  X acceleration 
component  with  respect  to  mass 

bdri  i 


Variable 

pxu 

px  V 

pxw 

pxx 

pxy 

pxz 

px_alp 

pylcp 

pylcpp 

pylcpy 

pylcy 

pylcyy 

py2cp 

Variable  Definition 


Partial  derivative  of  X acceleration 
component  with  respect  to  Y velocity 
component 

Partial  derivative  of  X acceleration 
component  with  respect  to  Z velocity 
component 

Partial  derivative  of  X acceleration 
component  with  respect  to  Z velocity 
component 

Partial  derivative  of  X acceleration 
component  with  respect  to  X position 
component 

Partial  derivative  of  X acceleration 
component  with  respect  to  Y position 
component 

Partial  derivative  of  X acceleration 
component  with  respect  to  Z position 
component 

Partial  derivative  of  X acceleration 
component  with  respect  to  angle  of 
attack 

Second  partial  derivative  of  x 
component  of  direction  cosine  of  the 
axial  component  of  the  vehicle  (yhat(1)) 
with  respect  to  the  pitch  and  yaw 
attitude  angles 

Second  partial  derivative  of  x 
component  of  direction  cosine  of  the 
axial  component  of  the  vehicle  (yhat(1)) 
with  respect  to  the  pitch  altitude  angle 

Second  partial  derivative  of  x 
component  of  direction  cosine  of  the 
axial  component  of  the  vehicle  {yhat(1)) 
with  respect  to  the  pitch  and  yaw 
attitude  angles 

Second  partial  derivative  of  x 
component  of  direction  cosine  of  the 
axial  component  of  the  vehicle  (yhat(1)) 
with  respect  to  the  yaw  attitude  angle 

Second  partial  derivative  of  x 
component  of  direction  cosine  of  the 
axial  component  of  the  vehicle  (yhat(1)) 
with  respect  to  the  yaw  attitude  angle 

Second  partial  derivative  of  y 
component  of  direction  cosine  of  the 


Status 

Common 

Block 

Global 

calif 

Global 

calif 

Global 

calif 

Global 

calif 

Global 

calif 

Global 

calif 

Local 

Local 


Local 
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py2cpp 


py2cpy 


py2cyy 


py3cp 


py3cpp 


py3cpy 


py3cy 


py3cyy 


Variable  Definition 


axial  component  of  the  vehicle  (yhat{2)) 
with  respect  to  the  pitch  and  yaw 
attitude  angles 


Second  partial  derivative  of  y 
component  of  direction  cosine  of  the 
axial  component  of  the  vehicle  (yhat(2)) 
with  respect  to  the  pitch  attitude  angle 


Second  partial  derivative  of  y 
component  of  direction  cosine  of  the 
axial  component  of  the  vehicle  (yhat(2)) 
with  respect  to  the  pitch  and  yaw 
attitude  angles 


Second  partial  derivative  of  y 
component  of  direction  cosine  of  the 
axial  component  of  the  vehicle  (yhat(2)) 
with  respect  to  the  yaw  attitude  angle 


Second  partial  derivative  of  y 
component  of  direction  cosine  of  the 
axial  component  of  the  vehicle  (yhat{2)) 
with  respect  to  the  yaw  attitude  angle 


Second  partial  derivative  of  z 
component  of  direction  cosine  of  the 
axial  component  of  the  vehicle  (yhat(3)) 
with  respect  to  the  pitch  and  yaw 
attitude  angles 


Second  partial  derivative  of  z 
component  of  direction  cosine  of  the 
axial  component  of  the  vehicle  (yhat(3)) 
with  respect  to  the  pitch  attitude  angle 


Second  partial  derivative  of  z 
component  of  direction  cosine  of  the 
axial  component  of  the  vehicle  (yhat{3)) 
with  respect  to  the  pitch  and  yaw 
attitude  angles 


Second  partial  derivative  of  z 
component  of  direction  cosine  of  the 
axial  component  of  the  vehicle  (yhat(3)) 
with  respect  to  the  yaw  attitude  angle 


Second  partial  derivative  of  z 
component  of  direction  cosine  of  the 
axial  component  of  the  vehicle  (yhat(3)) 
with  respect  to  the  yaw  attitude  angle 


pycgm 

Partial  derivative  of  longitudinal 
component  of  CG  with  respect  to  mass 

pycpcp 

Second  partial  derivative  of 
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Variable 

Variable  Definition 

aerodynamic  rolling  moment  with 
respect  to  pitch  attitude 

pycpcy 

Second  partial  derivative  of 
aerodynamic  rolling  moment  with 
respect  to  pitch  and  yaw  attitude 

pycpm 

Partial  derivative  of  longitudinal 
component  of  center  of  pressure  with 
respect  to  mass 

pycycy 

Second  partial  derivative  of 
aerodynamic  rolling  moment  with 
respect  to  yaw  attitude 

pyhat_alp 

Partial  derivative  of  yhat  with  respect 
to  angle  of  attack 

pym 

Partial  derivative  of  Y acceleration 
component  with  respect  to  mass 

pyocpp 

Second  partial  derivative  of  ty1  with 
respect  to  pitch  attitude  angle 

pyocpy 

Second  partial  derivative  of  tyl  with 
respect  to  pitch  and  yaw  attitude  angles 

pyocyy 

Second  partial  derivative  of  tyl  with 
respect  to  yaw  attitude  angle 

pytcpp 

Second  partial  derivative  of  ty2  with 
respect  to  pitch  attitude  angle 

pytcpy 

Second  partial  derivative  of  ty2  with 
respect  to  pitch  and  yaw  attitude  angles 

pytcyy 

Second  partial  derivative  of  ty2  with 
respect  to  yaw  attitude  angle 

pyu 

Partial  derivative  of  Y acceleration 
component  with  respect  to  Y velocity 
component 

pyv 

Partial  derivative  of  Y acceleration 
component  with  respect  to  Z velocity 
component 

py  w 

Partial  derivative  of  Y acceleration 
component  with  respect  to  X velocity 
component 

pyx 

Partial  derivative  of  Y acceleration 
component  with  respect  to  X position 
component 

pyy 

Partial  derivative  of  Y acceleration 
component  with  respect  to  Y position 
component 

Status  Common 
Block 

Local 

Local 

Local 

Local 

Global  calif 
Local 
Local 
Local 


Variable 


py_alp 


pz1  cp 


pz1  cp 


pz1  cy 


pz1 cyy 


pz2cpy 


pz2cy 


Variable  Definition 


Partial  derivative  of  Y acceleration 
component  with  respect  to  Z position 
component 


Partial  derivative  of  Y acceleration 
component  with  respect  to  angle  of 
attack 


Second  partial  derivative  of  x 
component  of  direction  cosine  of  the 
lateral  component  of  the  vehicle 
(zhat(1))  with  respect  to  the  pitch  and 
yaw  attitude  angles 


Second  partial  derivative  of  x 
component  of  direction  cosine  of  the 
lateral  component  of  the  vehicle 
(zhat(1))  with  respect  to  the  pitch 
attitude  angle 


Second  partial  derivative  of  x 
component  of  direction  cosine  of  the 
lateral  component  of  the  vehicle 
(zhat(1))  with  respect  to  the  pitch  and 
yaw  attitude  angles 


Partial  derivative  of  x component  of 
direction  cosine  of  the  lateral 
component  of  the  vehicle  (zhat(1))  with 
respect  to  the  yaw  attitude  angle 


Second  partial  derivative  of  x 
component  of  direction  cosine  of  the 
lateral  component  of  the  vehicle 
(zhat(1))  with  respect  to  the  yaw 
attitude  angle 


Second  partial  derivative  of  y 
component  of  direction  cosine  of  the 
lateral  component  of  the  vehicle 
(zhat(2))  with  respect  to  the  pitch  and 
yaw  attitude  angles 


Second  partial  derivative  of  y 
component  of  direction  cosine  of  the 
lateral  component  of  the  vehicle 
(zhat(2))  with  respect  to  the  pitch 
attitude  angle 


Second  partial  derivative  of  y 
component  of  direction  cosine  of  the 
lateral  component  of  the  vehicle 
(zhat(2))  with  respect  to  the  pitch  and 
yaw  attitude  angles 


Second  partial  derivative  of  y 
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bdri  i 


Variable 

Variable  Definition 

Units 

Source 

component  of  direction  cosine  of  the 
lateral  component  of  the  vehicle 
(zhat(2))  with  respect  to  the  yaw 
attitude  angle 

pz2cyy 

Second  partial  derivative  of  y 
component  of  direction  cosine  of  the 
lateral  component  of  the  vehicle 
(zhat{2))  with  respect  to  the  yaw 
attitude  angle 

pz3cp 

Second  partial  derivative  of  z 
component  of  direction  cosine  of  the 
lateral  component  of  the  vehicle 
(zhat{3))  with  respect  to  the  pitch  and 
yaw  attitude  angles 

pz3cpp 

Second  partial  derivative  of  z 
component  of  direction  cosine  of  the 
lateral  component  of  the  vehicle 
(zhat(3))  with  respect  to  the  pitch 
attitude  angle 

pz3cpy 

Second  partial  derivative  of  z 
component  of  direction  cosine  of  the 
lateral  component  of  the  vehicle 
(zhat{3))  with  respect  to  the  pitch  and 
yaw  attitude  angles 

pz3cy 

Partial  derivative  of  z component  of 
direction  cosine  of  the  lateral 
component  of  the  vehicle  (zhat(3))  with 
respect  to  the  yaw  attitude  angle 

pz3cyy 

Second  partial  derivative  of  z 
component  of  direction  cosine  of  the 
lateral  component  of  the  vehicle 
(zhat(3))  with  respect  to  the  yaw 
attitude  angle 

pzcpcp 

Second  partial  derivative  of 
aerodynamic  pitching  moment  with 
respect  to  pitch  attitude 

pzcycy 

Second  partial  derivative  of 
aerodynamic  pitching  moment  with 
respect  to  yaw  attitude 

pzm 

Partial  derivative  of  Z acceleration 
component  with  respect  to  mass 

pzu 

Partial  derivative  of  2 acceleration 
component  with  respect  to  Y velocity 
component 

pzv 

Partial  derivative  of  Z acceleration 

I/O  Status  Common 
Block 


Local 

output  Global  calif 

output  Global  calif 

output  Global  calif 
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Variable 


Variable  Definition 


Units 


Source 


I/O 


Status 


Common 

Block 


component  with  respect  to  Z velocity 
component 

pzw 

Partial  derivative  of  Z acceleration 
component  with  respect  to  X velocity 
component 

output 

Global 

calif 

pzx 

Partial  derivative  of  Z acceleration 
component  with  respect  to  X position 
component 

output 

Global 

calif 

pzy 

Partial  derivative  of  Z acceleration 
component  with  respect  to  Y position 
component 

output 

Global 

calif 

pzz 

Partial  derivative  of  Z acceleration 
component  with  respect  to  Z position 
component 

output 

Global 

calif 

pz_alp 

Partial  derivative  of  Z acceleration 
component  with  respect  to  angle  of 
attack 

Local 

q 

Dynamic  pressure 

nt/m'^2 

bdr1  i 

output 

Global 

agen2 

qaipha 

Base  force  tables 

ainit 

input 

Global 

aerodi 

qalpha_max 

Maximum  value  of  q alpha 

ainit 

input 

Global 

qalpha_ 

max 

qref 

Reference  dynamic  pressure 

kg/m''2 

Local 

r 

Radius  from  earth's  center 

m 

bdri  i 

output 

input 

Global 

agen2 

r2 

Radius  squared 

m'^2 

Local 

re 

Earth's  radius 

m 

ainit 

input 

Global 

const 

reyno 

Reynold’s  number 

Local 

rho 

Atmospheric  density 

Local 

rthe 

Current  earth  radius 

output 

input 

Global 

agen2 

s(15) 

Aerodynamic  reference  area  for  each 
thrust  event 

m^2 

ainit 

input 

Global 

agent 

salp 

Sine  of  angle  of  attack 

Local 

salp_new 

Sine  of  new  value  of  angle  of  attack 

Local 

sazw 

Sine  of  the  wind  azimuth  angle 

Local 

schip 

Sine  of  pitch  attitude  angle 

aderl 

output 

input 

Global 

agen2 

schir 

Sine  of  roll  attitude  angle 

aderl 

output 

input 

Global 

agen2 

schiy 

Sine  of  yaw  attitude  angle 

adert 

output 

Global 

agen2 
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Variable 


sreyno 


tandpi 


tandy 


Variable  Definition 


Not  used 


Saved  value  of  mach  number 


Sine  of  past  value  of  angle  of  attack 
(olda) 


Speed  of  sound 


Product  of  dynamic  pressure  and 
aerodynamic  reference  area 


Square  root  of  reynold  number 


Sine  of  angle  between  aerodynamic 
reference  arm  and  longitudinal  axis  of 
vehicle 


State  variable  array  (interpolated) 


Stored  state  array 


Y component  of  relative  velocity  vector  m/sec 


Z component  of  relative  velocity  vector  m/sec 


X component  of  relative  velocity  vector  m/sec 


Time  from  lift-off 


Tangent  of  pitch  gimbal  angle  of  first 
equivalent  engine 


Source  I/O  Status  Common 

Block 


tandpi  _new  I Base  force  tables 


tandp2  Tangent  of  pitch  gimbal  angle  of  second 

equivalent  engine 


tandp2_new  Base  force  tables 


Tangent  of  yaw  gimbal  angle 


Tangent  of  fixed  value  of  pitch  gimbal 
angle 


Tangent  of  fixed  value  of  yaw  gimbal 
angle 


Throttle  level 


Interpolated  value  of  thrust  trottle  level 
when  using  the  thrust  tailoff  option 
(MPSFLG=6) 


tau_const(1  0,  Constant  value  of  throttle  used  for 
constant  throttle  after  acceleration 
limit 


Time  used  in  backward  integration 


output  Globa)  agen2 


output  Global  agen2 
input 


output  Global  agen2 
input 


nput  Global  bakint 


Variable 

Variable  Definition 

tbl(201 ) 

Time  table  for  stored  state  variables 

temi  ca 

Temporary  variable  associated  with 
viscous  interaction  effects 

tem1  cm 

Temporary  variable  associated  with 
viscous  interaction  effects 

temt  cn 

Temporary  variable  associated  with 
viscous  interaction  effects 

tem2ca 

Temporary  variable  associated  with 
viscous  interaction  effects 

tem2cm 

Temporary  variable  associated  with 
viscous  interaction  effects 

tem2cn 

Temporay  variable  associated  with 
viscous  interaction  effects 

temp 

Temporary  variable 

tempi 

Temporary  variable 

temp2 

Temporary  variable 

temp3 

Temporary  variable 

temp4 

Temporary  variable 

temp5 

Temporary  variable 

temp6 

Temporary  variable 

temp7 

Temporary  variable 

tempS 

Temporary  variable 

tempQ 

Temporary  variable 

tend 

Termination  time  of  forward  trajectory 
(start  of  backward  intgration) 

tf  X 

Normal  component  of  fixed  engine  thrust 
vector 

t f X X 

Normal  component  of  fixed  engine  thrust 
vector 

tfy 

Axial  component  of  fixed  engine  thrust 
vector 

tfyy 

Axial  component  of  fixed  engine  thrust 
vector 

tfzz 

Lateral  component  of  thrust  vector 

thr  1 

Thrust  magnitude  of  engines  that  are  not 
being  throttled  during  thrust  tailoff 

thr2 

Thrust  magnitude  of  engines  being 
throttled  during  thrust  tailoff 

Source  I/O  Status  Common 

Block 


output  Global  tabs 
input 
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bdrl  i 


Variable 

Variable  Definition 

throt(15) 

Throttle  table  for  MPS  motor 

thrust 

Atmospheric  thrust  magnitude 

thrvac 

Vacuum  thrust 

tmz 

Z component  of  thrust  moment 

tne(6,15) 

Array  which  defines  the  number  of 
engines  per  thrust  event 

tq 

Time  that  the  minh  phase  is  initiated 

t X 

Vertical  component  of  moment  balanced 
thrust 

1xcg(1  5) 

Vertical  center  of  gravity  table 

txp 

Partial  derivative  of  normal  thrust 
component  In  moment  balance  coordinate 
system  with  respect  to  plumbline  2 
velocity  component 

txpcp 

Second  partial  derivative  of  normal 
component  of  thrust  vector  in  moment 
balance  coordinate  system  with  respect 
to  pitch  and  yaw  attitude  angles 

txpcpp 

Second  partial  derivative  of  normal 
component  of  thrust  vector  in  moment 
balance  coordinate  system  with  respect 
to  pitch  attitude  angle 

Ixpcpy 

Second  partial  derivative  of  normal 
component  of  thrust  vector  in  moment 
balance  coordinate  system  with  respect 
to  pitch  and  yaw  attitude  angles 

txpcy 

Second  partial  derivative  of  normal 
component  of  thrust  vector  in  moment 
balance  coordinate  system  with  respect 
to  yaw  attitude  angle 

txpcyy 

Second  partial  derivative  of  normal 
component  of  thrust  vector  in  moment 
balance  coordinate  system  with  respect 
to  yaw  attitude  angle 

txpu 

Partial  derivative  of  normal  thrust 
component  in  moment  balance  coordinate 
system  with  respect  to  plumbline  y 
velocity  component 

txpv 

Partial  derivative  of  normal  thrust 
component  in  moment  balance  coordinate 
system  with  respect  to  plumbline  z 
velocity  component 

Status  Common 
Block 


input  Global  mps 


Local 


Local 


output  Global  agenS 
input 


input  Global  agent 


output  Global  agent 
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Variable 

Variable  Definition 

txpw 

Partial  derivative  of  normal  thrust 
component  in  moment  balance  coordinate 
system  with  respect  to  plumbline  x 
velocity  component 

txpx 

Partial  derivative  of  normal  component 
of  thrust  vector  in  body  coordinate 
system  with  respect  to  plumbline  x 
position  component 

txpy 

Partial  derivative  of  normal  component 
of  thrust  vector  In  body  coordinate 
system  with  respect  to  plumbline  y 
position  component 

txpz 

Partial  derivative  of  normal  component 
of  thrust  vector  in  body  coordinate 
system  with  respect  to  plumbline  z 
position  component 

txp_new 

Normal  thrust  component  in  alternate 
system  assuming  new  angle  of  attack 

tx_new 

Normal  thrust  component  assuming  new 
angle  of  attack 

Status  Common 
Block 


ty  1 _new 


ty2_new 


tycg(15) 


typ 


Longitudinal  component  of  moment 
balanced  thrust 


Axial  thrust  vector  component  of  one 
of  the  two  moment  balanced  equivalent 
engines 


Longitudinal  thrust  component  of  engine 
1 assuming  new  angle  of  attack 


Axial  thrust  vector  component  of  the 
second  of  the  two  moment  balanced 
equivalent  engines 


Longitudinal  thrust  component  of  engine 
2 assuming  new  angle  of  attack 


Longitudinal  center  of  gravity  table 


Partial  derivative  of  longitudinal  thrust 
component  in  moment  balance 
coordinate  system  with  respect  to 
plumbline  z velocity  component 


Second  partial  derivative  of  longitudinal 
component  of  thrust  vector  in  moment 
balance  coordinate  system  with  respect 
to  pitch  and  yaw  attitude  angles 


Second  partial  derivative  of  longitudinal 
component  of  thrust  vector  in  moment 
balance  coordinate  system  with  respect 


output  Global  agenS 
input 


bthrev 


input  Global  bodyb 


313 


Variable 


typcpy 


typcy 


typcyy 


typ_new 


ty_new 


tz  new 


Variable  Definition 


to  pitch  attitude  angle 


Second  partial  derivative  of  longitudinal 
component  of  thrust  vector  in  moment 
balance  coordinate  system  with  respect 
to  pitch  and  yaw  attitude  angles 


Second  partial  derivative  of  longitudinal 
component  of  thrust  vector  in  moment 
balance  coordinate  system  with  respect 
to  yaw  attitude  angle 


Second  partial  derivative  of  longitudinal 
component  of  thrust  vector  in  moment 
balance  coordinate  system  with  respect 
to  yaw  attitude  angle 


Partial  derivative  of  longitudinal  thrust 
component  in  moment  balance  coordinate 
system  with  respect  to  plumbline  y 
velocity  component 


Partial  derivative  of  longitudinal  thrust 
component  in  moment  balance 
coordinate  system  with  respect  to 
plumbline  z velocity  component 


Partial  derivative  of  longitudinal  thrust 
component  in  moment  balance  coordinate 
system  with  respect  to  plumbline  x 
velocity  component 


Partial  derivative  of  longitudinal 
component  of  thrust  vector  in  body 
coordinate  system  with  respect  to 
plumbline  x position  component 


Partial  derivative  of  longitudinal 
component  of  thrust  vector  in  body 
coordinate  system  with  respect  to 
piumbline  y position  component 


Partial  derivative  of  longitudinal 
component  of  thrust  vector  in  body 
coordinate  system  with  respect  to 
plumbline  z position  component 


Total  longitudinal  thrust  component  in 
alternate  system  assuming  new  angle  of 
attack 


Longitudinal  thrust  component  assuming 
new  angle  of  attack 


Time  of  simulation  initiation 


Lateral  thrust  component  assuming  new 


Status  Common 
Block 


bdrii  I output!  Global  agent 
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Variable 


ubl(20i; 


udxdy2 


vbl(201) 


wargd 


wbl(201 


wdotboost 


wdotmps 


Variable  Definition 


angle  of  attack 


Y component  of  plumbline  inertial 
velocity  vector 


Array  for  storage  of  Y component  of 
inertial  velocity  vector  during  forward 
integration 


1.+  (dx/dy)^2 


One  minus  the  earth  flattening 
coefficient 


Base  force  tables 


Z component  of  plumbline  inertial 
velocity  vector 


Spline  coefficient  for  viscous 
interaction  coefficients  interpolation 


Array  of  partial  derivatives  of  viscous 
interaction  coefficients  with  respect  to 
mach  number 


Array  of  viscous  interaction 
coefficients 


Spline  coefficient  for  viscous 
Interaction  coefficients  interpolation 


Array  for  storage  of  Z component  of 
inertial  velocity  vector  during  forward 
integration 


Spline  coefficient  for  viscous 
interaction  coefficients  interpolation 


Logical  flag  Indicating  the  simulation  of 
viscous  interaction  effects 


Magnitude  of  relative  velocity 


X component  of  plumbline  inertial 
velocity  vector 


Interpolated  wind  parameters 


Derivative  of  wind  parameters  with 
respect  to  altitude 


Array  for  storage  of  X component  of 
inertial  velocity  vector  during  forward 
integration 


Flowrate  of  booster 


Flowrate  of  main  propulsion  system 


Source  I/O  Status  Common 

Block 


m/sec  dpir  input  Global  forint 


m/sec  bdr1  i 


kg/sec 


kg/sec 


nput  Global  tabs 


input  Global  agen2 


input  Global  aerodi 


m/sec  dpir  input  Globa!  forint 


output  Global  agenS 


output  Global  agen2 
Input 


m/sec  dpir  input  Global  forint 
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bdr1  i 


Variable 

Variable  Definition 

Units 

Source 

I/O 

Status 

Common 

Block 

wdot_boost(2 

Stored  booster  flowrate  tables 

kg/sec 

output 

Global 

tabs 

wdot_mps(20 

Stored  main  propulsion  system  flowrate 
tables 

kg/sec 

Global 

tabs 

wgtboost 

Booster  propellant  mass 

kg 

Local 

wgtmps 

MPS  propellant  mass 

kg 

Local 

wgt_boost(20 

Stored  booster  mass  tables 

kg 

output 

input 

Global 

tabs 

wgt_mps(201 

Stored  MPS  mass  tables 

kg 

Global 

tabs 

wind 

Wind  vector 

m/sec 

Local 

wint 

Initial  vehicle  weight 

kg 

bdri  i 

1 input 

Global 

Glow 

wmag 

Wind  speed  magnitude 

m/sec 

bdri  i 

output 

Global 

agenS 

X 

X component  of  plumbline  position 
vector 

m 

dpir 

input 

Global 

forint 

xbl(201 ) 

Array  for  storage  of  X component  of 
position  vector  during  forward 

m 

aeosr 

input 

Global 

labs 

xhat  new 


integration 


Vertical  component  of  center  of  gravity  m 


Vertical  component  of  gimbal  points  of  m 
equivalent  booster  engines 


Direction  cosine  of  vehicle  normal 
vector  in  Plumbline  coordinates 


New  value  of  xhat  based  on  angle  of 
attack 


Coefficient  used  in  stagnation  heating 
equation 


Coefficient  used  in  stagnation  heating 
equation 


Coefficient  used  in  stagnation  heating 
equation 


Coefficient  used  in  stagnation  heating 
equation 


Coefficient  used  in  stagnation  heating 
equation 


Coefficient  used  in  stagnation  heating 
equation 


Coefficient  used  in  stagnation  heating 
equation 


Knudsen’s  number 


Mean  free  path 


athrev  input  Global  avggp 
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Variable 


Variable  Definition 


Units 


Source 


xlen 


Reference  length 


m 


bthrev 


X m 


Current  vehicle  mass 


kg 


bdri 


xmach 


Mach  number 


bdri  i 


xmaug 


xmiad 


Auxiliary  vehicle  mass 


kg 


Continuous  portion  of  vehicle  mass 


kg 


athrev 


xmbl(201)  I Array  for  storage  of  vehicle  mass  I I aeosr 

(continuous)  during  forward  integration 

xmi  I Integrated  vehicle  mass  less  jettisoned  j kg  I"  dpir 

inerts. 


aderl 


xmu 


Coefficient  of  viscosity 


xnul 


Temporary  variable 


X ref 


Vertical  component  of  moment 
reference  point 


bthrev 


ycg 


Y component  of  plumbline  position 
vector 


m 


Longitudinal  component  of  center  of 
gravity 


m 


dpir 


ybl(201)  I Array  for  storage  of  Y component  of  | m I aeosr 
position  vector  during  forward 
integration 


yep 


Longitudinal  component  of  center  of 
pressure 


m 


ygpa 


Longitudinal  component  of  gimbal  point 
of  booster  equivalent  engine 


m 


athrev 


yhat 


Direction  cosine  of  vehicle  axial  vector 
in  Plumbline  coordinates 


yhat_new 


New  value  of  yhat  based  on  new  alpha 


yl(7.20)  I Integrated  values  of  adjoint  equations  of 
motion 


y re  f 


Longitudinal  component  of  moment 
reference  point 


m 


dpir 


bthrev 


zgpa 


Z component  of  plumbline  position 
vector 


m 


Lateral  component  of  gimbal  point  of 
booster  equivalent  engines 


m 


dpir 


zb!(201)  I Array  for  storage  of  Z position  I m 1 aeosr 

component  during  forward  integration 


athrev 


zhat 


Direction  cosine  of  vehicle  lateral 


I/O 

Status 

Common 

Block 

input 

Global 

bodyb 

input 

Global 

agen2 

output 

Global 

agen2 

input 

Global 

agent 

input 

Global 

tabs 

input 

Global 

forint 

output 

input 

Global 

agen2 

Local 

output 

Global 

qalpha_ 

max 

input 

Global 

bodyb 

input 

Global 

forint 

input 

Global 

tabs 

Local 

Local 

input 

Global 

avggp 

Local 

Local 

input 

Global 

bakint 

input 

Global 

bodyb 

input 

Global 

forint 

input 

Global 

tabs 

input 

Global 

avggp 

Local 
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CALL  AMULG (2,MBS21 , 25, XMACH, TOMACH, DCAX, DELCA, DCNP, DELCN)  py3cp= 

CALL  AMULG ( 1 , MBS21 , 25, XMACH , TOMACH , DCMZ, DELCM, 0,0) 
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PHRX=HRATE5*PVRX+HRATE4*PHX 
PHRY-HRATE5*PVRY  + HRATE4  *PHY 
PHRZ=HRATE5*PVRZ+HRATE4*PHZ 


3^  Subroutine  BDRI 

3^.1  Purpose 

The  purpose  of  this  subroutine  is  to  compute  derivatives  of  the  adjoint 
equations. 

3.25.2  Variable  Listing 

3.25.3  Subroutines  Called: 

Name  Function 

DEVISP  Calculates  the  partial  derivative  of  specific  impulse  with 

respect  to  mass 

FUNISP  Calculates  specific  impulse  based  on  throttle  level 

3.25.4  Calling  Subroutines: 

Ngtme  Function 

DPIR  Integration  routine 

3.25.5  Fortran  Listing 
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Variable 


Variable  Definition 


Angle  of  attach  based  on  Q alpha 


Partial  derivative  of  specific  impulse 
with  respect  to  mass 


Units  Source 


engdat(8,15) 


glim(15) 


I/O  Status  Common 
Block 


input  Global  q_partia 


Engine  data  matrix 


Acceleration  limit 


Gravitational  constant  (9.80665  m/sec)  m/sec^  | ainit 


Thrust  event  index  number 


input  Global  ageni 


input  Global  j mps 


input  Global  const 


input  Global  agen3 


Index  used  to  indicate  the  number  of  the 
constraint  used  for  the  maximum 
heating  constraint 


mpsflg(15)  Flag  indicating  the  type  of  MPS  thrust 
simulation 


nbtrgS  Acceleration  limit  trigger  for 

backwards  integration 


nchiot(6)  Optimization  flag  used  with  branch 

trajectory  option 


Number  of  constraints  at  restart 


Number  of  constraints 


Index  number  of  current  stage 


Array  specifying  the  thrust  events 
where  intermediate  constraints  will  be 
imposed 


Absolute  value  of  angle  of  attack 


Partial  derivatives  of  heat  rate  with 
respect  to  position  and  velocity  state 
variables 


Partial  derivative  of  dynamic  pressure 
with  respect  to  u velocity  component 


Partial  derivative  of  dynamic  pressure 
with  respect  to  v velocity  component 


Partial  derivative  of  dynamic  pressure 
with  respect  to  w velocity  component 


Partial  derivative  of  dynamic  pressure 
with  respect  to  x position  component 


Partial  derivative  of  dynamic  pressure 
with  respect  to  y position  component 


Partial  derivative  of  dynamic  pressure 


athrev 


output  Global  heat 
input 


output  Global  agen3 


input  Global  bakint 


input  Global  mult 


input  Global  rest 


input  Global  bgen3 


input  Global  mult 


output  Global  enput 


input  Global  phrs 


input  Global  q_partia 
is 


input  Global  q_partia 
Is 


input  Global  q_partia 
Is 


input  Global  q_partia 
Is 


input  Global  q_partia 
Is 


input  Global  q_partia 


Variable 

Variable  Definition 

with  respect  to  z position  component 

Units 

Source 

I/O 

Status 

1 

Common 

Block 

Is 

ptaum 

Partial  derivative  of  tau  with  respect  to 
mass 

Local 

ptn 

Conversion  from  pounds  to  newtons 

nt/lbs 

ainit 

input 

Global 

const 

pxm 

Partial  derivative  of  X acceleration 
component  with  respect  to  mass 

bdr1  i 

input 

Global 

calif 

pxu 

Partial  derivative  of  X acceleration 
component  with  respect  to  Y velocity 
component 

bdri  i 

input 

Global 

calif 

pxv 

Partial  derivative  of  X acceleration 
component  with  respect  to  Z velocity 
component 

bdri  i 

input 

Global 

calif 

pxw 

Partial  derivative  of  X acceleration 
component  with  respect  to  Z velocity 
component 

bdri  i 

input 

Global 

calif 

pxx 

Partial  derivative  of  X acceleration 
component  with  respect  to  X position 
component 

bdri  i 

input 

Global 

calif 

pxy 

Partial  derivative  of  X acceleration 
component  with  respect  to  Y position 
component 

bdri  i 

input 

Global 

calif 

pxz 

Partial  derivative  of  X acceleration 
component  with  respect  to  Z position 
component 

bdr1  i 

input 

Global 

calif 

pym 

Partial  derivative  of  Y acceleration 
component  with  respect  to  mass 

bdr1  i 

input 

Global 

calif 

pyu 

Partial  derivative  of  Y acceleration 
component  with  respect  to  Y velocity 
component 

bdri  i 

input 

Global 

calif 

pyv 

Partial  derivative  of  Y acceleration 
component  with  respect  to  Z velocity 
component 

bdri  i 

input 

Global 

calif 

py  w 

Partial  derivative  of  Y acceleration 
component  with  respect  to  X velocity 
component 

bdr  1 i 

input 

Global 

calif 

pyx 

Partial  derivative  of  Y acceleration 
component  with  respect  to  X position 
component 

bdri  i 

input 

Global 

calif 

pyy 

Partial  derivative  of  Y acceleration 
component  with  respect  to  Y position 
component 

bdri  i 

input 

Global 

calif 

pyz 

Partial  derivative  of  Y acceleration 
component  with  respect  to  Z position 

bdri  i 

input 

Global 

calif 

Variable 


Variable  Definition 


component 


Partial  derivative  of  Z acceleration 
component  with  respect  to  mass 


Partial  derivative  of  Z acceleration 
component  with  respect  to  Y velocity 
component 


Partial  derivative  of  Z acceleration 
component  with  respect  to  Z velocity 
component 


Partial  derivative  of  Z acceleration 
component  with  respect  to  X velocity 
component 


Partial  derivative  of  Z acceleration 
component  with  respect  to  X position 
component 


Partial  derivative  of  Z acceleration 
component  with  respect  to  Y position 
component 


Partial  derivative  of  Z acceleration 
component  with  respect  to  Z position 
component 


Throttle  level  to  maintain  acceleration 
limit 


Vacuum  thrust  of  fixed  engines 


Array  which  defines  the  number  of 
engines  per  thrust  event 


Specific  impulse 


Current  vehicle  mass 


Auxiliary  vehicle  mass 


Continuous  portion  of  vehicle  mass 


Temporary  variable 


Integrated  values  of  adjoint  equations  of 
motion 


Adjoint  differential  equations 


Source  I/O  Status  Common 

Block 


bdrii  input  I Global  I calif 


bdrii  input  Global  calif 


bdr1  i input  Global  I calif 


bdrii  input  Global  I calif 


bdrii  input  Global  calif 


bdrii  input  Global  calif 


bdrii  input  Global  calif 


ainit  input  Global  agent 


bdri  I output]  Global  agen2 


athrev  input  Global  agent 


aderl  input  Global  agen2 


Global  qa!pha_ 
max 


dpir  input  Global  bakint 


bdri  output!  Global  bakint 
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Subroutine  BKEND 


336.1  Purpose 

The  purpose  of  this  subroutine  is  to  terminate  the  backward 
integration  and  adjust  the  influence  coefficients  (if  required). 

3.26.2  Variable  Listing 

3.26.3  Subroutines  Called: 

Name  Function 

BSAVEG  Calculates  the  impulse  response  functions  and 

integrates  the  weighting  matrix 
RTMRK  Terminates  the  integration  routine 


3.26.4  Calling  Subroutines: 


Nsme 

BAKRN 

BTHREV 

DPIR 


Function 

Controls  the  logic  for  the  backward  integration  and  calls 
the  integration  package 

Controls  the  thrust  event  logic  in  the  backward 

integration 

Integration  routine 


3.26.5  Fortran  Listing 
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bkend 


Variable 

Variable  Definition 

Units 

Source 

I/O 

Status 

Common 

Block 

cfr(15) 

Critical  flowrate 

kg/sec 

ainit 

input 

Global 

xtra 

cisp(15) 

MRS  specific  impulse 

sec 

ainit 

input 

Global 

xtra 

f(15) 

MRS  engine  thrust 

newton 

input 

Global 

xtra 

f mx  X 

Temporary  variable  used  for  calculation 
of  partial  derivatives  for  tank 
constraints 

athrev 

input 

Global 

f m X X 

foms(l  5) 

Thrust  table  for  orbit  maneuver  system 

lbs 

ainit 

input 

Global 

omsrcs 

frcs(15) 

Thrust  table  for  rocket  control  system 

lbs 

ainit 

input 

Global 

omsrcs 

glim(15) 

Acceleration  limit 

9's 

ainit 

input 

Global 

mps 

gzero 

Gravitational  constant  (9.80665  m/sec) 

m/sec'' 

ainit 

input 

Global 

const 

ibranch 

Flag  indicating  the  terminal  thrust  event 
of  the  first  trajectory  of  the  branch 
trajectory 

output 

Global 

mult 

ilast 

Flag  indicating  the  first  thrust  event  in 
the  last  stage 

output 

Global 

ipr 

invt 

Index 

Local 

ipr 

Denotes  the  thrust  event  from  which 
fuel  propellant  reserve  (FRR)  is 
calculated 

input 

output 

I Global 

ipr 

irtflg 

Flag  indicating  FRR  calculations 

output 

Global 

agen3 

irtls 

Return  to  launch  flag 

input 

Global 

agen3 

EH 

Index  for  control  table  points 

bkend 

output 

input 

Global 

bgen3 

kcdphi(20) 

Terminal  constraint  selection  flag  array 

ainit 

input 

Global 

yli 

kdb(40) 

Array  for  control  parameter  flags 

ainit 

input 

Global 

auto 

kdt(15) 

Array  used  in  confunction  with  the  ipr 
option 

ainit 

input 

Global 

kv 

Index 

Local 

kvi 

Index 

Local 

Index 

Local 

mpsflg(1  5) 

Flag  indicating  the  type  of  MRS  thrust 
simulation 

ainit 

output 

Global 

agen3 

msw 

temporay  variable 

athrev 

input 

Global 

f m X X 

mswch{1  5) 


Flag  indicating  which  thrust  events  are 
considered  critical 


output 


Global 


agen3 


nchiot(6) 


Optimization  flag  used  with  branch 
trajectory  option 


ainit 


input 


Global 


mult 


nomor 


Index  indicating  end  of  integration 


bthrev 


input 


Global 


nomor 
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bkend 


Variable 

Variable  Definition 

noss 

Number  of  constraints 

nowd(1 5) 

Index  indicating  thrust  event  where 
weight  drop  event  will  occur 

nstg(15) 

Internal  index  which  relates  thrust 
event  to  stage  number 

nvnt 

Number  of  thrust  events 

nwvnt 

Number  of  weight  drop  events 

prk4 

Temporary  variable  used  in  calculation 
of  performance  reserve  option 

ptgt 

Partial  derivative  of  time  to 
acceleration  limit  with  respect  to  ith 
thrust  event  time 

ptgti 

Partial  derivative  of  time  to 
acceleration  limit  with  respect  to  ith 
thrust  event  time 

ptjti 

Partial  derivative  of  jth  thrust  event 
time  to  ith  thrust  event  time 

ptiti 

Partial  derivative  of  Ith  thrust  event 
time  with  respect  to  ith  thrust  event 
time 

taut(t  5) 

Time  increments  for  thrust  events 

temp 

Temporary  variable 

tempt 

Temporary  variable 

temp2 

Temporary  variable 

tempr 

Temporary  variable 

tend 

Termination  time  of  forward  trajectory 
(start  of  backward  intgration) 

tglim(t  0,1  5) 

Time  of  acceleration  limit 

time(2, 1 6) 

Actual  times  for  thrust  events 
measured  from  launch 

tne(6,15) 

Array  which  defines  the  number  of 
engines  per  thrust  event 

V rc  u t 

Magnitude  of  characteristic  velocity 
cutoff 

wddump(1  5) 

Amount  of  weight  dumped  during 
OMS/RCS  thrust  events 

wdoms(1  5) 

Weight  flowrate  of  OMS  engines 

wdrcs(1  5) 

Weight  flowrate  of  RCS  engines 

wg 

Mass  at  acceleration  limit 

Status  Common 
Block 


bakrn  input  Global  bgen3 


ainit  Input  Global  agen3 


Local 


Local 


Local 


bakrn  input  Global  bakmt 


sec  atilt  input  Global  mps 


sec  aforun  Input  Global  agent 


ainit  input  Global  agent 


m/sec  ainit  input  Global  agent 


ainit  input  Global  omsrcs 


Ibs/sec  ainit  input  Global  omsrcs 


Ibs/sec  ainit  input  Global  omsrcs 


athrev  input  Global  fmxx 
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bkend 


Variable 


Variable  Definition 


xlamb(40,20)  Partial  derivatives  of  payoff  and 
constraints  with  respect  to  the 
optimization  parameters 


xmd(1  5) 


yl(7,20) 


ylbt(1  5.20) 


ylbw(15,20) 


ylf(7.20) 


Propellant  flowrate  kg/sec 


Propellant  flowrate  for  ith  thrust  event  kg/sec 


Propellant  flowrate  for  jth  thrust  event  kg/sec 


Propellant  flowrate  for  Ith  thrust  event  kg/sec 


Integrated  values  of  adjoint  equations  of 
motion 


Partial  derivatives  of  the  constraints 
with  respect  to  the  thrust  event  time 
intervals 


Partial  derivatives  of  the  constraints 
with  respect  to  the  weight  drop  event 
time  intervals 


Final  value  of  yl  array  at  the 
termination  of  the  backward  integration 


Source  I/O  Status  Common 

Block 


bkend  output  Global  auto 


Input  Global  xtra 


input  Global  bakint 


bkend  output  Global  blamb 
input 


bkend  input  Global  blamb 
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Subroutine  BSAVEG 


327.1  Purpose 

This  subroutine  saves  impulse  response  functions  and  performs 
Simpson  integration  on  the  weighting  matrix. 

3.27.2  Variable  Listing 

3.27.3  Subroutines  Called: 

None 


3.27.4  Calling 
Name 
BKEND 
BTHREV 

DPIR 


Subroutines: 

Function 

Terminates  the  backward  integration 

Controls  the  thrust  event  logic  during  the  backward 

integration 

Integration  routine 


327.5  Fortran  Listing 
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Variable 


ahtb(21 0) 


covl(7) 


delts(7) 


gaphi(20) 


gaptb(21  0,20 


gnu(20) 


gsptb(21  0,20 


Variable  Definition 


Element  of  Hessian  matrix 


Element  of  Hessian  matrix 


Element  of  Hessian  matrix 


Previous  pitch  attitude  tables 


Pitch  attitude  angle 


Yaw  attitude  angle 


Lagrangian  multipliers 


Two  thirds  the  value  of  dtb4 


Four  thirds  the  value  of  dtb4 


Time  increment  used  to  build  pitch  and 
yaw  attitude  tables  during  min-H 


Determinate  of  Hessian  matrix 


Time  increment  used  with  attitude 
tables  during  mln-H 


One  third  the  value  of  dtb4 


Temporary  array 


Partial  derivatives  of  constraints  with 
respect  to  pitch  attitude 


Partial  derivative  of  payoff  with 
respect  to  constraints 


Temporary  variable 


Partial  derivatives  of  constraints  with 
respect  to  yaw  attitude 


Element  of  inverse  of  Hessian  matrix 


Element  of  inverse  of  Hessian  matrix 


Element  of  inverse  of  Hessian  matrix 


Thrust  event  index  number 


Source  I/O  Status  Common 

Block 


bsaveg  | output  Global  imp 


input  Global  agen2 


input  Global  agen2 


output  Global  covi 
input 


input  Global  bakint 


input  Global  bakint 


bsaveg  output  Global  imp 


bthrev  input  Global  bakint 


bthrev  input  Global  bakint 


bsaveg  output  Global  blamb 


bsaveg  output  Global  imp 


anewch  input  Global  gnu 


bsaveg  output  Global  imp 


athrev  output  Global  agen3 


kcytab 


Index  for  control  table  points 


Indicator  for  positive  definite  values  of 
huu  matrix 


Attitude  control  table  index 


Index  for  time  and  pitch  and  yaw  control 
table  index 


bsaveg  output  Global  bgen3 
input 


bsaveg  output  Globa!  agen3 


bsaveg  output  Global  agen3 


bthrev  input  Global  imp 
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bsaveg 


Variable 

Variable  Definition 

Units 

Source 

kwta(7) 

Flag  indicating  pitch  only  (1)  or  pitch 
and  yaw  (2)  attitude  control 

ainit 

II 

Index  used  in  Simpson’s  integration 

m 

Index 

nbtrg4 

Impulse  response  function  trigger  for 
backwards  integration 

nchiot(6) 

Optimization  flag  used  with  branch 
trajectory  option 

ainit 

ncnrs(5) 

Number  of  constraints  at  restart 

ainit 

nom1 

Index  indicating  first  iteration  pass 

noss 

Number  of  constraints 

mastre 

nossmi 

Index  (noss-1) 

np(7) 

Number  of  points  in  attitude  tables 
during  min-H  phases 

ainit 

nstage 

Index  number  of  current  stage 

athrev 

nvrst(5) 

Array  specifying  the  thrust  events 
where  Intermediate  constraints  will  be 
imposed 

ainit 

pdxcp 

Partial  derivative  of  X acceleration 
component  with  respect  to  pitch  attitude 
angle 

pdxcpp 

Second  partial  derivative  of  X 
acceleration  component  with  respect  to 
pitch  attitude  angle 

pdxcpy 

Second  partial  derivative  of  X 
acceleration  component  with  respect  to 
pitch  and  yaw  attitude  angles 

pdxcy 


pdxcyy 


pdycp 


pdycpp 


pdycpy 


Partial  derivative  of  X acceleration 
component  with  respect  to  yaw  attitude 
angle 


Second  partial  derivative  of  X 
acceleration  component  with  respect  to 
yaw  attitude  angle 


Partial  derivative  of  Y acceleration 
component  with  respect  to  pitch  attitude 
angle 


Second  partial  derivative  of  Y 
acceleration  component  with  respect  to 
pitch  attitude  angle 


Second  partial  derivative  of  Y 


I/O 

Status 

Common 

Block 

input 

Global 

agen3 

Local 

Local 

output 

Globa! 

bakint 

input 

Global 

mult 

input 

Global 

rest 

input 

output 

Global 

bgen3 

input 

Global 

bgen3 

Local 

input 

Global 

bgen3 

input 

Global 

mult 

output 

Global 

enput 

input 

Global 

calif 

input 

Global 

calif 

input 

Global 

calif 

input 

Global 

calif 

input 

Global 

calif 

input 

Global 

calif 

input 

Global 

calif 

input 

Global 

calif 

bsaveg 


Variable 


Variable  Definition 


acceleration  component  with  respect  to 
pitch  and  yaw  attitude  angles 


Partial  derivative  of  Y acceleration 
component  with  respect  to  yaw  attitude 
angle 


Second  partial  derivative  of  Y 
acceleration  component  with  respect  to 
yaw  attitude  angle 


Partial  derivative  of  2 acceleration 
component  with  respect  to  pitch  attitude 
angle 


Second  partial  derivative  of  Z 
acceleration  component  with  respect  to 
pitch  attitude  angle 


Second  partial  derivative  of  Z 
acceleration  component  with  respect  to 
pitch  and  yaw  attitude  angles 


Partial  derivative  of  Z acceleration 
component  with  respect  to  yaw  attitude 
angle 


Partial  derivative  of  2 acceleration 
component  with  respect  to  yaw  attitude 
angle 


Tempoary  array 


Previous  yaw  attitude  table  during 
min-H 


Time  from  lift-off 


Time  to  next  determination  of  impulse  sec 
response  function 


Temporary  variable 


Temporary  variable 


Start  times  to  begin  min-H  phases 


Temporary  variable 


wiss(20.20)  Weighting  matrix 


wissd(20,20)  I Weighting  matrix  derivative 


Flag  indicating  that  payoff  will  be 
maximized  ( = 1)  or  minimized  (=-1) 


yl{7,20)  Integrated  values  of  adjoint  equations  of 

motion 


pdycy 


pdycyy 


pdzcp 


pdzcpp 


pdzcpy 


pdzcy 


pdzcyy 


prod(2,20) 


sitb(210) 


Source  I/O  Status  Common 

Block 


input  Global  calif 


input  Global  calif 


input  Global  calif 


input  Global  ca 


input  Global  calif 


input  Global  calif 


bsaveg 


input  Global  calif 


output  Global  blamb 
input 


output  Global  imp 


input  Global  forint 


output  Global  bakint 
input 


output!  Global  bakint 


input  Global  agen2 


dptr  input  Global  bakint 
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3^  Subroutine  BTHREV 

3.28.1  Purpose 

This  subroutine  controls  the  thrust  event  logic  in  the  backward 
integration.  The  entry  routines  BWDEV  and  BGLIM  are  included  in  this 
subroutine  to  control  weight  drop  events  and  acceleration  limits, 
respectively. 

3.28.2  Variable  Listing 

3.28.3  Subroutines  Called: 

Nam£  Function 

BKEND  Terminates  the  backward  integration 

BSAVEG  Calculates  the  impulse  response  functions  and 

integrates  the  weighting  matrix 
RTMRK  Terminates  the  integration  routine 


3.28.4  Calling  Subroutines: 

Name  Function 

BAKRN  Controls  the  logic  for  the  backward  integration  and  calls 

the  integration  package 
DPIR  Integration  routine 

3.28.5  Fortran  Listing 
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bthrev 


Variable 

atbdwt(1  5,2) 

atxcg(1  5,2) 

atycg(1  5,2) 

axlen(2) 

axref(2) 

ayref(2) 

bstep(1  5) 

d23 

d43 

delxd(15,7) 

delxdb(7) 

delxdw(1  5.3) 

drngdt(2) 

dtb4 

du3 

engdat(8,1  5) 
engines(1  5,1 

hmxb 

hnmb 

ibranch 

ithr 

iwd 


Variable  Definition 

Units 

Source 

I/O 

Status 

Common 

Block 

Weight  loss  table  for  center  of  gravity 
tables 

kg 

ainit 

input 

Global 

body 

Storage  array  for  vertical  center  of 
gravity  tables 

m 

ainit 

input 

Global 

body 

Storage  array  for  longitudinal  center  of 
gravity  table 

m 

ainit 

input 

Global 

body 

Aerodynamic  reference  length 

m 

input 

Global 

body 

Vertical  aerodynamic  moment  reference 
point 

m 

input 

Global 

body 

Longitudinal  aerodynamic  moment 
reference  point 

m 

ainit 

input 

Global 

body 

Backward  integration  stepsize 

sec 

input 

Global 

agen2 

Two  thirds  the  value  of  dtb4 

output 

Global 

bakint 

Four  thirds  the  value  of  dtb4 

output 

Global 

bakint 

State  derivative  storage  at  thrust 
events 

athrev 

input 

Global 

agen2 

State  derivative  storage  for  branch 
trajectory 

athrev 

input 

Global 

deixdb 

State  derivative  discontinuity  storage 
at  weight  grop  events 

atilt 

input 

Global 

agen2 

Time  derivative  of  range  from  launch 
site 

acstop 

input 

Global 

drngdt 

Time  increment  used  with  attitude 
tables  during  min-H 

sec 

bthrev 

output 

input 

Global 

bakmt 

One  third  the  value  of  dtb4 

bthrev 

output 

input 

Global 

bakint 

Engine  data  matrix 

ainit 

input 

Global 

agent 

This  array  indicates  which  engine  from 
the  ENGDAT  array  is  being  used  for  a 
certain  thrust  event,  (0-  not  being  used, 
1 ‘being  used) 

ainit 

input 

Global 

engines 

Maximum  step  size  for  backward 
integration 

sec 

output 

Global 

agen2 

Nominal  step  size  for  backward  stepsize 

sec 

output 

Global 

agen2 

Flag  indicating  the  terminal  thrust  event 
of  the  first  trajectory  of  the  branch 
trajectory 

output 

Global 

mult 

Thrust  event  index  number 

athrev 

output 

input 

Global 

agen3 

Index  for  weight  drop  events 

bthrev 

output 

Global 

agen3 
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Variable 


Variable  Definition 


jstart(6) 

Index  for  use  with  branch  trajectory 
option 

Index  for  control  table  points 

jthrot(1  5) 

Index  indicating  number  of  times  the 
acceleration  limit  has  been  reached 
within  a given  thrust  event 

jump 

Jump  start  flag 

kcdphi(20) 

Terminal  constraint  selection  flag  array 

kcytab 

Attitude  control  table  index 

kjtb 

Index  for  time  and  pitch  and  yaw  control 
table  Index 

ksave 

Index 

lstge(1 5) 

Aerodynamic  coefficient  flag  to 
distinguish  stages 

m 

Index 

mblb1 

Pointer  index  for  LBM  propulsion  lookup 
for  backward  integration 

mblb2 

Previous  index  for  LBM  propulsion 
lookup  for  backward  integration 

mbs1 

Pointer  index  for  aerodynamic  lookup  in 
backwards  integration 

mbs2 

Previous  Index  for  aerodynamic 
interpolation  in  backwards  integration 

mbs21 

Pointer  index  for  incremental 
areodynamic  data 

mbs3 

Pointer  index  for  base  force 
interpolation  in  backwards  integration 

mbs31 

Previous  Index  for  incremental  base 
force  interpolation 

mbs4 

Previous  index  for  base  force 
interpolation  in  backwards  integration 

mbs5 

Index  for  state  interpolation 

mbs? 

Pointer  index  for  center  of  gravity 
Interpolation  in  backwards  integration 

mbs8 

Previous  index  for  center  of  gravity 
interpolation  in  backwards  integration 

mbs9 

Pointer  index  for  wind  parameter 
interpolation  m backwards  integration 

Source  I/O  Status  Common 

Block 

input 


ainit  input  Global  istart 


bthrev  output  Global  bgen3 


atilt(gli  input  Global  mps 
output 


ainit  input  Global  agen3 


ainit  input  Global 


bthrev  output  Global  agen3 
input 


bthrev  output  Global  imp 


Local 


ainit  input  Global  agen3 


Local 


output  Globa!  IbmmbI 


output  Global  IbmmbI 


output  Global  bodyb 


output  Global  bodyb 


output  Global  delmbs 


output  Global  bodyb 


output  Global  delmbs 


output  Global  bodyb 


output  Global  bodyb 


output  Global  bodyb 


output  Global  bodyb 


output  Global  bodyb 
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bthrev 


Variable 

Variable  Definition 

Units 

Source 

I/O 

Status 

Common 

Block 

minh 

Flag  to  indicate  thrust  event  which 
begins  min-h  attitude  optimization 

ainit 

input 

agen3 

mombal 

Flag  to  specify  the  use  of  moment 
balance  equations 

ainit 

input 

Global 

mombal 

mpsflg(1  5) 

Flag  indicating  the  type  of  MRS  thrust 
simulation 

ainit 

output 

Global 

agen3 

n 

Index 

Local 

nbgct(7) 

Index  indicating  beginning  of  min-H 
phases 

ainit 

input 

Global 

agen3 

nbtrgS 

Weight  drop  event  trigger  for  backward 
integration 

output 

Globa! 

bakint 

nbtrg4 

Impulse  response  function  trigger  for 
backwards  integration 

output 

Global 

bakint 

nbtrgS 

Acceleration  limit  trigger  for 
backwards  integration 

output 

Global 

bakint 

nchiot(6) 

Optimization  flag  used  with  branch 
trajectory  option 

ainit 

input 

Global 

mult 

ncnrs{5) 

Number  of  constraints  at  restart 

ainit 

input 

Global 

rest 

nendct(7) 

Index  indicating  end  of  min-H  phases 

ainit 

input 

Global 

agen3 

nn 

Index  corresponding  to  nbgct 

Local 

nomor 

Index  indicating  end  of  integration 

output 

Global 

nomor 

noss 

Number  of  constraints 

bakrn 

input 

Global 

bgen3 

np(7) 

Number  of  points  in  attitude  tables 
during  min-H  phases 

ainit 

input 

Global 

bgen3 

nstag 

Index  number  of  current  stage 

Local 

nstage 

Index  number  of  current  stage 

athrev 

Input 

output 

Global 

mult 

nstg(15) 

Internal  index  which  relates  thrust 
event  to  stage  number 

ainit 

input 

Global 

mult 

nsyst(  1 5) 

Index  array  which  specifies  the  type  of 
engines  that  will  be  used  for  each  thrust 
event 

ainit 

input 

Globa! 

agen3 

nvnt 

Number  of  thrust  events 

ainit 

output 

Global 

agen3 

nvrst(5) 

Array  specifying  the  thrust  events 
where  intermediate  constraints  will  be 
imposed 

ainit 

output 

Global 

enput 

sp 

Index 

Local 

tbdwt(  1 5) 

Weight  overboard  table  for  center  of 
gravity  tables 

kg 

bthrev 

output 

Global 

bodyb 
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bthrev 


Variable 


tglim(1  0.1  5) 


time(2, 1 6) 


tne(6,1  5) 


txcg(15) 


tycg(1 5) 


wd(  1 5) 


wjet(1  5) 


xmaug_save 


yl(7.20) 


ylbt(1  5.20) 


Variable  Definition 


Time  used  in  backward  integration 

Thrust  event  trigger  time  during 
backward  integration 

Weight  drop  event  trigger  time  during 
backward  integration 

Time  to  next  determination  of  impulse 
response  function 

Time  of  acceleration  limit  event 

Termination  time  of  forward  trajectory 
(start  of  backward  intgration) 

Time  of  acceleration  limit 

Actual  times  for  thrust  events 
measured  from  launch 

Array  which  defines  the  number  of 
engines  per  thrust  event 

Time  that  the  minh  phase  is  initiated 

Vertical  center  of  gravity  table 

Longitudinal  center  of  gravity  table 

Weight  dropped  during  weight  drop 
event 

Initial  vehicle  weight 

Jettison  weight  per  thrust  event 

Initial  vehicle  weight 

Vertical  component  of  gimbal  points  of 
equivalent  booster  engines 

Reference  length 

Auxiliary  vehicle  mass 


Saved  value  of  auxiliary  mass  used  for 
branch  trajectory  option 

Vertical  component  of  moment 
reference  point 

Longitudinal  component  of  gimbal  point 
of  booster  equivalent  engine 

Integrated  values  of  adjoint  equations  of 
motion 

Partial  derivatives  of  the  constraints 
with  respect  to  the  thrust  event  time 
intervals 


Units 

sec 

sec 

sec 

sec 

sec 

sec 


lbs 


Source 

I/O 

Status 

Common 

Block 

input 

Global 

bakint 

bthrev 

output 

Global 

bakint 

bthrev 

output 

Global 

bakint 

bthrev 

output 

Global 

bakint 

bthrev 

output 

Global 

bakint 

bakrn 

input 

Global 

bakint 

BDi 

input 

Global 

mps 

aforun 

input 

Global 

ageni 

ainit 

input 

Global 

ageni 

bdri  i 

input 

Global 

ageni 

bthrev 

output 

Global 

bodyb 

bthrev 

output 

Global 

bodyb 

ainit 

input 

Global 

ageni 

1 

bdr1  i 

output 

Global 

olow 

ainit 

input 

Global 

ageni 

anewch 

input 

Global 

agen2 

athrev 

output 

input 

Global 

avggp 

bthrev 

output 

Global 

bodyb 

athrev 

output 

input 

Global 

ageni 

athrev 

input 

Global 

xmaug_s 

ave 

bthrev 

output 

Global 

bodyb 

athrev 

output 

input 

Global 

avggp 

dpir 

input 

Global 

bakint 

bthrev 

output 

Global 

blamb 

366 


bthrev 


Variable 

Variable  Definition 

Units 

Source 

I/O 

Status 

Common 

Block 

ylbw(15.20) 

Partial  derivatives  of  the  constraints 
with  respect  to  the  weight  drop  event 
time  intervals 

bthrev 

output 

Global 

blamb 

y ref 

Longitudinal  component  of  moment 
reference  point 

m 

bthrev 

output 

Global 

bodyb 

zgpa 

Lateral  component  of  gimbal  point  of 
booster  equivalent  engines 

m 

athrev 

output 

input 

Global 

avggp 
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TRIGGER  ROUTINE  FOR  BACKWARD  WEIGHT  DROP  EVENT 


tbv5=tend-tglim ( jthrot (ithr)  , ithr) 


3^  Subroutine  CAERO 

3^.1  Purpose 

The  purpose  of  this  subroutine  is  to  calculate  the  nonlinear 
aerod3mamic  coefficients  based  on  input  values  of  mach  number,  angle  of 
attack,  inboard  and  outboard  deflection  angles,  and  sideslip  angle. 

3.29.2  Variable  Listing 

3.29.3  Subroutines  Called: 

Name  Function 

INTER  Performs  linear  interpolation  on  nonlinear  aerodynamic 

data 

SEARCH  Searches  a table  of  values  for  a unique  value. 

3.29.4  Calling  Subroutines: 

Name  Function 

ADER  Calculates  the  time  independent  portion  of  the  equations 

of  motion  during  forward  integration 

3.29.5  Fortran  Listing 
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Variable 


tmach(28) 


Variable  Definition 


Output  variable  containing  current 
aerodynamic  coefficients 


Axial  force  coefficients 


Axial  force  coefficients 


Yawing  moment  coefficients 


Pitch  moment  coefficients 


Normal  force  coefficients 


Rolling  moment  coefficents 


Side  force  coefficients 


Delta  Inboard  elevon  angle 


Delta  outboard  elevon  angle 


Temporary  variable 


Index  (i-1) 


Index  (i-2) 


Number  of  tabular  values  in  mach 
number  table 


Mach  table  for  aerodynamic  tables 


Multiplication  factors  based  on  Inboard 
and  outboard  elevon  angles 


xmach 


373 


SUBROUTINE  CAERO  (AERO,  )(MACH,  ALPHA,  BETA,  DINBD,  DOUTBD] 


u 

H 


s 

X 

►— 1 

Q 

•ft 

oc 

CM 

o 



;5S 

i-H 

a> 

§ 

Nk 

ty' 

H 

HH 

<0 

1 

■ — ' 

a. 

oc 

u 

CJ 

1 

u 

0 

y 

CN 

52 

• 

■ — 

0 

II 

■' — ' 

k.^ 



X 

u 

ai 

rM 

a 

■ — ■ 

fO 

-f 

o 

1—? 

. — . 

, — . 

*— 

OJ 

fl-H 

CJ 

X 

r'l 

w 

4 

Ch 



VP  

o> 

2 

U3 

^ o 

r-i 

' — ' 

S 

2 

.-H  II 

o 

:d 

II  -- 

CD 

oi 

H 

f— t 

4— ( *-H 

2 

rn 

w 

k*-t 

• 2 

(i: 

< 

2 

O k-t 

VO  O 

00 

T 

H 

Oi 

H 

Q 

O 

c 

X u. 

o w 

H 

2 

a; 

o 

o 3 

2 

U 

< IT) 

H ' 

UJ  ■ 


2 

< 





vD 

H 

>• 

<N 

CN 

CN 

u 

z 

Z 

z 

CN 

CN 

CN 

2 

Z 

z 

Z 

X 

CN 

. — . 

I-H 

u 

VD 

f-^ 



z 

z 

z 

1— 1 

r-H 

«— 4 

(N 

CN 

z 

Z 

Z 

CN 

— 

< 

2 

•k 

*» 

I-H 

n 

X 

vD 

2 

4T) 

1—4 

f— 4 

1—4 



2 

«-H 

r—4 

w 

CN 

CN 

CN 

2 

< 

C 

2 

1—4 

f— t 

H 

hH 

*-c 

f— 4 

I-H 

1— 1 

U 

CN 

X 

X 

X 

' — ' 

■ 

X 

t ) 

z 

. — . 

< — . 

2 

2 

2 

< 

< 

< 

CJ 

f-H 

CN 

2 

2 

2 

H 

H 

H 



CN 

■ 

— 

< 

< 

< 

2 

2 

2 

tsj 

y 

VD 

«-4 

2 

< 

H 

H 

H 

2 

2 

2 

t 

VO 

Z 2 

H 

H 

H 

H 

o 



2 

r-4 

< 

2 

< 

< 

< 

2 

t— ♦ 

H 

2 

X 

X 

X 

< 

< 

< 

X 

X 

X 

2 

H 

2 

2 

2 

H 

H 

H 

CN 

m 

u 

2 

2 

2 

2 

2 

2 

2 

< 

— 

r--f 

< 

< 

< 

2 

2 

2 



< 

■ 

f— * 



1^ 

■k 

CN 

H 

< 

H 

(N 

CM 

CN 

CN 

CN 

CN 

CN 

2 

2 

2 



2 

r— I 

< 

< 

< 

2 

2 

2 

O 



CO 

2 

U 

VD 

««■ 



rH 

HH 

1— 1 

KH 

t— t 

t— c 

•-H 

y£> 

— ■ 

H 

4^ 

X 

X 

• — ' 

». 

CO 

■ — ■ 

2 

2 

— 

i-H 

U 

2 

< 

r-H 

i-H 

f— t 

r—i 

*— ( 

U 

2 

VO 

2 

H 

< 

< 

< 

2 

2 

2 

CJ 

u 



< 

2 

n 

H 

HH 

l-H 

t— ( 

Q 

u 

> 

CN 

in 

P 

H 

2 

•> 

2 Q 

2 



■ — ' 

i-H 

< 

< 

< 

< 

< 

Q 

H 2 

2 



CN 

2 

fc. 

X 

< 

< 

2 

s 

>-• 

X 

2 

2 

D H 

2 

in 

< 

CJ 

X 

< 

U 

O 

u 

u 

CJ 

U 

2 

O D 

U 

VO 

< 

r-t 

h4 

2 

Eh 

•fc 

«. 

♦—4 

Q O 

o 

H 



U 

2 

2 

2 

ffi 

2 

2 

2 

Q 

♦ Q 

03 

2 

2 

2 

X 

< 

2 

2 

S 

X 

2 

« 

Q 

Q * 

Z3 

2 

< 



' — 

■ — ' 

u 

U 

o 

U 

u 

U 

Q 

Q 

2 

2 Q 

o 

c 

u 

o 

CJ 

vD 

X 

X 

X 

2 

2 

H 

H 2 

Q 

2 

CJ 

CJ 

CJ 

2 

2 

a: 

2 

2 

2 

2 

2 

D 

D 2 

VO 

CN 

2 

2 

2 



aa 

2 

2 

w 

2 

2 

2 

»— 1 

»— 1 

O 

O 

•k 

•, 

H 

o 

o 

2 

r-H 

5< 

H 

H 

H 

H 

H 

r-H 

Q 

O 

Q 

Q Q 

r-H 

r-t 

CN 

2 

2 

2 

2 

2 

2 

2 

2 

2 

It 

II 

II 

II 

II  II 

II 

II 

u 

to 

2 — 

2 

iO 

2 

C/> 

2 

♦— ( 

t— ( 

1— 1 

*"3 

2 

2 CN 

o 

X 

r-^ 

r-H 

CN 

cn 

«T 

m VO 

2 

2 ^ 

u 

2 

2 

2 

2 

2 

iJ 

2 

2 

2 

■ — ' 

' — ' 

' — ' ' — ■ 

'T 

S 

X ^ 

c 

2 

2 

2 

2 

2 

2 

2 

2 

u 

O 

CJ 

CJ 

U L> 

I 

Q 

a CJ 

u 

i 

X 

u 

< 

CJ 

< 

U 

u 

g 

< 

U 

< 

u 

< 

U 

g 

g 

2 

> 

o o 

Q Q 

^ ^ '-i 


• — <D 

SpQ  m m m OQ  jc, 
2 2 X 4-> 

U U U U O CJ 


u u u u u u 

Uj  u u u u u 

>>>>>> 
-»-+4-’f  + 4- 

*-)*-)  *^  *^  •d 

(NVD.-<CNf*^^»r)VO 

.^-^UUUUUU 

II  tl  II  II  II  II  II  II 

^ '“5  r)  rj 

Lom 

*-i  CN  rn  ^ lO  VD 

OO 

QQUUUUUU 


\£>  — 


CD  o 

8a 


\D 

H 


Tl 

C 

D 


m 


374 


IF  (XMACH.GT.TMACH  (NTMACH)  ) then 


3^  Subroutine  CHIPOL 

3.30.1  Purpose 

The  purpose  of  this  subroutine  is  to  evaluate  pitch  and  yaw  attitude 
polynomials. 

3.30.2  Variable  Listing 

3.30.3  Subroutines  Called: 

None 

3.30.4  Calling  Subroutines: 

Name  Function 

ADERl  Calculates  the  time  dependent  portion  of  the  equations 

of  motion  during  forward  integration 

3.30.5  Fortran  Listing 
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Variable 


Variable  Definition 


Coefficients  of  1st  polynomial 


Coefficients  of  2nd  polynomial 


Index 


Order  of  polynomial  of  1st  parameter 


Order  of  2nd  polynomial 


Current  time 


Dependent  variable  defined  by  1st 
polynomial  at  current  time 


Dependent  variable  defined  by  2nd 
polynomial  at  current  time 
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O CQ 


3^1 


Subroutine  COPLDF 


3.31.1  Purpose 

The  purpose  of  this  subroutine  is  write  list-directed  files. 

3.31.2  Variable  Listing 

3.31.3  Subroutines  Called: 

Name  Function 

GOUT  Displays  a character  string  at  the  terminal 

LDSWI  Reads  and  creates  direct  access  file 

LDWRIT  Generic  routine  to  write  a direct  access  file 

3.31.4  Calling  Subroutines: 

Name  Function 

AREAIN  Controls  user  interface 

3.31.5  Fortran  Listing 
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copidf 


Variable 

Variable  Definition 

c6 

Name  of  for009  file 

contrl 

Index  used  to  define  file  number 

fildes 

Character  Indicating  name  of  mission 

icop 

Index  (0=terminate,1  =write  on  a list 
directed  file) 

is 

Index 

mision 

Character  indicating  name  of  mission 

na 

Name  of  event  from  output  file 

nb 

Name  of  mission 

next 

Index 

n wr 

Number  of  parameters 

sngl 

Character  indicating  name  of  mission 

sword 

Single  precision  equivalence  of  word 
array 

word 

Parameters  from  output  file 
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3^2 


Subroutine  DBANK 


3.32.1  Purpose 

The  purpose  of  this  subroutine  is  read  a database  file  and  place  the 
data  in  a storage  array. 

3.32.2  Variable  Listiner 

3.32.3  Subroutines  Called: 

None 

3.32.4  Calling  Subroutines: 

Name  Function 

AINIT  Input  routine 

WIND  IN  Reads  wind  data  from  database 

3.32.5  Fortran  Listing 
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dbank 


Variable 


Variable  Definition 


Output  array 


block(1500)  I Output  storage  block 


Input  index  (minimum  index  of  storage 
array) 


Input  index  (maximum  index  of  storage 
array) 


Absolute  value  of  im 


Number  of  record  on  direct  access  file 
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COMMON /CCC/ GRAPH,  JO,  DEMAT4 
COMMON /SB LOCK /BLOCK (1500) 


3^  Subroutine  DESOLV 

3.33.1  Purpose 

The  purpose  of  this  subroutine  is  to  initialize  the  inputs  for  the 
integration  subroutine  DPIR. 

3.33.2  Variable  Listing 

3.33.3  Subroutines  Called: 

Name  Function 

DPIR  Integration  routine 

3.33.4  Calling  Subroutines: 

Name  Function 

AFORUN  Controls  logic  for  forward  integration  and  calls 

integration  routine 

BAKRN  Controls  logic  for  backward  integration  and  calls 

integration  routine 

3.33.5  Fortran  Listing 
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desolv 


Variable 

Variable  Definition 

aco(1 0) 

Constants  for  integration  routine 

bco(IO) 

Coefficients  for  integration  routine 

big 

Big  number  used  for  upper  bound 

bik 

Storage  array 

dr  1 

Entry  point  of  routine  that  carries  out 
the  portion  of  the  derivative  evaluation 
involving  the  independent  variable  only 

dr2 

Entry  point  to  the  routine  that  carries 
out  the  remaining  calculations 
necessary  to  compute  all  nact 
derivatives  and  stores  them  in  hbk 

dtmn 

Minimum  step  size  allowed 

dtmx 

Maximum  step  size  allowed 

dusc 

Delta  u scale  factor  in  integration 
routine 

el 

Lower  limit  for  stepsize  control 

eio 

Lower  limit  for  step  size  control 

ends 

Entry  point  to  routine  entered  at  the  end 
of  a full  integration  step 

eost 

Logical  variable  to  denote  call  to 
termination  routine  in  integration 
routine 

error 

Logical  variable  to  denote  error  in 
integration  routine 

eu(1) 

Upper  limit  for  stepsize  control 

eup 

Upper  limit  for  step  size  control 

hbk 

Storage  array 

hmn 

Minimum  step  size  when  using  variable 
step  integration  routine 

hmx 

Maximum  step  size 

hnom 

Nominal  step  size 

hold 

Nominal  step  size 

id 

Index 

iddi 

Index 

idl(1l) 

Integer  array  that  is  used  as  an 
indicator  block  for  triggers  ( =1, 
dependent;  =0,  independent) 

irst 

Logical  variable  for  integration  restart 

Source 

I/O 

desolv 

output 

desolv 

output 

Local 


Local 


desolv 

output 

Global 

desi 

desolv 

output 

Global 

desi 

output  Global  desi 


Local 


Local 


output  Global  desi 


output  Global  desi 


Local 


output  Global  desi 


Local 


Local 


output  Global  des1 


output  Global  desi 
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desolv 


Variable 


mmp2 


mxntrg 


Variable  Definition 


Index  indicating  integration  method  type 


Error  indicator 


Integration  type  flag  for  forward 
trajectory 


Control  index  for  control  of  Runge-Kutta 
or  Adams-Moulton  logic  in  main  loop 


Error  indicator  In  integration  routine 


Variable  dimension  used  in  storage 
array 


Number  of  derivatives 


Index  (mp1+1) 


Index  in  integration  routine 


Index  In  integration  routine 


The  total  number  of  possible  first  order 
differential  equations  to  be  solved 


Maximum  number  of  triggers 


Actual  number  of  differential  equations 
to  solve 


Index  used  in  Integration  routine 


Number  of  differential  equations  to 
integrate 


The  total  number  of  possible  first  order 
differential  equations  to  be  solved 


Index  in  integration  routine 


Actual  number  of  differential  equations 
to  solve  in  integration  routine 


Number  of  triggers 


Code  index 


Flag  In  integration  routine 


Trigger  flag  for  1st  event  in  calling 
argument 


Trigger  flag  for  11th  event  In  calling 
argument 


Trigger  flag  for  2nd  event  in  calling 
argument 


Trigger  flag  for  3rd  event  in  calling 
argument 

386 


Source  I/O  Status  Common 

Block 


desolv  I output  Global  desi 


output  Global  desi 
input 


output  Global  desi 
input 


output  Global  desi 


desolv  I output!  Global  des1 


output  Global  desi 


output  Global  desi 


output  Global  desi 


desolv 


Variable 

Variable  Definition 

ntr4 

Trigger  flag  for  4th  event  in  calling 
argument 

ntr5 

Trigger  flag  for  5th  event  in  calling 
argument 

ntr6 

Trigger  flag  for  6th  event  in  calling 
argument 

ntr7 

Trigger  flag  for  7th  event  in  calling 
argument 

ntr8 

Trigger  flag  for  8th  event  in  calling 
argument 

ntr9 

Trigger  flag  for  9th  event  in  calling 
argument 

ntrg 

Number  of  triggers 

rt  1 

Entry  point  of  the  trigger  interrupt 
routine  for  the  1st  event  in  calling 
argument 

rtl  1 

Entry  point  of  the  trigger  interrupt 
routine  for  the  11th  event  in  calling 
argument 

rt2 

Entry  point  of  the  trigger  interrupt 
routine  for  the  2nd  event  in  calling 
argument 

r!3 

Entry  point  of  the  trigger  interrupt 
routine  for  the  3rd  event  in  calling 
argument 

r t4 

Entry  point  of  the  trigger  interrupt 
routine  for  the  4th  event  in  calling 
argument 

rt5 

Entry  point  of  the  trigger  interrupt 
routine  for  the  5th  event  in  calling 
argument 

rte 

Entry  point  of  the  trigger  interrupt 
routine  for  the  6th  event  in  calling 
argument 

rt7 

Entry  point  of  the  trigger  interrupt 
routine  for  the  7th  event  in  calling 
argument 

rt8 

Entry  point  of  the  trigger  interrupt 
routine  for  the  8th  event  in  calling 
argument 

rt9 

Entry  point  of  the  trigger  interrupt 
routine  for  the  9th  event  in  calling 
argument 

desolv 


Variable 


Variable  Definition 


Logical  variable  used  for  step  size 
control  in  integration  routine 


Temporary  variable 


Stored  time  used  in  calculation  of  step 
size  in  integration 


Name  of  the  variable  being  tested  for 
the  1st  event  in  calling  argument 


Name  of  the  variable  being  tested  for 
the  11th  event  in  calling  argument 


Name  of  the  variable  being  tested  for 
the  2nd  event  in  calling  argument 


Name  of  the  variable  being  tested  for 
the  3rd  event  in  calling  argument 


Name  of  the  variable  being  tested  for 
the  4th  event  in  calling  argument 


Name  of  the  variable  being  tested  for 
the  5th  event  in  calling  argument 


Name  of  the  variable  being  tested  for 
the  6th  event  in  calling  argument 


Name  of  the  variable  being  tested  for 
the  7th  event  in  calling  argument 


Name  of  the  variable  being  tested  for 
the  8th  event  in  calling  argument 


Name  of  the  variable  being  tested  for 
the  9th  event  in  calling  argument 


The  smallest  value  of  a dependent 
variable  that  will  affect  the  automatic 
step  size  logic 


The  smallest  value  of  a dependent 
variable  that  will  affect  the  automatic 
step  size  control  logic 


The  value  of  var  at  which  the  trigger 
interrupt  routine  is  to  be  executed  for 
the  1st  event  in  calling  argument 


The  value  of  var  at  which  the  trigger 
interrupt  routine  is  to  be  executed  for 
the  11th  event  in  calling  argument 


The  value  of  var  at  which  the  trigger 
interrupt  routine  is  to  be  executed  for 
the  2nd  event  in  calling  argument 


The  value  of  var  at  which  the  trigger 
interrupt  routine  is  to  be  executed  for 


Source  I/O  Status  Common 

Block 
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SUBROUTINE  INTERNAL  ERROR 


3^  Subroutine  DISPPRT 

3.34.1  Purpose 

The  purpose  of  this  subroutine  is  to  output  dispersion  parameters  on 
a direct  access  file.  The  dispersion  file  is  used  as  input  to  the  Root-Sum- 
Square  (RSS)  program. 

3.34.2  Variable  Listing 

3.34.3  Subroutines  Called: 

Nam£  Function 

ADER  Calculates  the  time  independent  portion  of  the  equations 

of  motion  during  forward  integration 
ADERl  Calculates  the  time  dependent  portion  of  the  equations 

of  motion  during  forward  integp*ation 

3.34.4  Calling  Subroutines: 

Mamfi  Function 

AFORUN  Controls  logic  for  forward  integration  and  calls 

integration  routine 
DPIR  Integration  routine 

3.34.5  Fortran  Listing 
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Variable 


a(3,3 


a1 


alf 


aify 


alongo 


alt 


azi 


beg now 


bgenow 


bgethn 


c1 


c3 


cbgenw 


cbgetn 


cchip 


cchiy 


cetanw 


cetatn 


cmue 


cphi 


d 


deibge 


deleta 


dispstep(2) 


Variable  Definition 


Tranformation  matrix  from  equatorial 
to  plumbline  coordinate  systems 


Temporary  variable 


Angle  of  attack 


Sideslip  angle 


Launch  longitude 


Altitude 


Inertial  azimuth  angle 


Eccentric  anomaly 


Eccentric  anomaly 


Eccentric  anomaly 


Angular  momentum 


Twice  the  energy 


Cosine  of  eccentric  anomaly 


Cosine  of  eccentric  anomaly 


Cosine  of  pitch  attitude  angle 


Cosine  of  yaw  attitude  angle 


Cosine  of  eccentric  anomaly 


Cosine  of  eccentric  anomaly 


Gravitiational  constant 


Cosine  of  colatitude 


Cosine  of  colatitude 


Direction  cosine  matrix 


Delta  eccentric  anomaly 


Increment  between  eccentric  anomalies 


Increment  steps  used  in  output  of 
dispersion  trajectories 


Delta  longitude 


Incremental  time  to  predicted  impact  sec 
point 


Status  Common 
Block 


dtz 

Time  difference  between  GRR  and  launch 
time 

sec 

ainit 

input 

Global 

ageni 

dvar(25) 

Storage  array  for  the  state  derivatives 

ader 

input 

Global 

forint 

ecc 


etanw 


Eccentricity 


Eccentric  anomaly  based  on  radius 
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Variable 


Variable  Definition 


Eccentric  anomaly  based  on  earth  radius  I rad 


Total  vehicle  sensed  acceleration 


Inertial  flight  path  angle 


Relative  flight  path  angle 


Array  of  dispersion  codes 


Numb'  of  record  on  direct  access 
storage  file 


Index  used  to  denote  the  type  of 
dispersion  case 


Dimension  of  dispersion  choice  array 


Mode  switch  to  indicate  the  portion  of 
the  routine  to  execute 


Iteration  counter 


Earth's  spin  rate 


Propellant  weight  for  each  engine  type 


Conversion  for  pounds  to  kilograms 


Longitude 


Latitude  of  impact  point 


Pi  constant  (3.14159265) 


Propellant  weight  for  each  engine  type 


Conversion  for  pounds  per  square  feet 
from  newtons  per  square  meter 


Dynamic  pressure 


Radius  from  earth’s  center 


In-plane  range 


Out-of-plane  range 


Earth’s  radius 


The  product  of  radius  and  the  sine  of  the 
colatitude 


Sine  of  pitch  attitude  angle 


Sine  of  yaw  attitude  angle 


Sine  of  colatitude 


Sine  of  colatitude 


Y component  of  relative  velocity  vector 


I/O  Status  Common 
Block 


mastre 


rad/sec  ainit 


kg 


kg/lbs  ainit 


input  Global  disp 


output  Global  agen3 


input  Global  const 


Input  Global  ageni 


input  Global  const 


input  Global  const 


input  Global  agent 


nt/m^2  ader 


input  Global  agen2 


output  Global  agen2 
input 


input  Global  agen2 


input  Global  agen2 
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dispprt 


Variable 

Variable  Definition 

Units 

Source 

I/O 

Status 

Common 

Block 

S V 

Z component  of  relative  velocity  vector 

m/sec 

input 

Global 

agen2 

s w 

X component  of  relative  velocity  vector 

m/sec 

input 

Global 

agen2 

t 

Time  from  lift-off 

sec 

dpir 

output 

input 

Global 

forint 

tdisp 

Time  to  begine  the  print  increment  from 
the  2nd  array  of  the  dispstep  array 
times 

sec 

ainit 

output 

Global 

disp 

thet 

Colatitude  angle 

rad 

Local 

theta 

Geocentric  latitude  angle 

deg 

Local 

thetg 

Geodetic  latitude  angle 

deg 

Local 

thimp 

Longitude  of  impact  point 

deg 

Local 

thti 

Colatitude  of  impact  point 

Local 

tv1  5 

Time  to  activate  dispersion  output  file 
creation 

sec 

dispprt 

output 

Global 

disp 

u 

Y component  of  plumbline  inertial 
velocity  vector 

m/sec 

dpir 

input 

Global 

forint 

umf 

One  minus  the  earth  flattening 
coefficient 

ainit 

input 

Global 

agen2 

V 

Z component  of  plumbline  inertial 
velocity  vector 

m/sec 

dpir 

input 

Global 

forint 

V a r 

Array  of  output  variables  for  dispersion 
output  file 

Local 

V i 

Inertial  velocity  magnitude 

m/sec 

Local 

vph 

Temporary  variable 

Local 

V r 

Magnitude  of  relative  velocity 

m/sec 

ader 

output 

input 

Global 

agen2 

vth 

Temporary  variable 

Local 

w 

X component  of  plumbline  inertial 
velocity  vector 

m/sec 

dpir 

input 

Global 

forint 

X 

X component  of  plumbline  position 
vector 

m 

dpir 

input 

Global 

forint 

X m 

Current  vehicle  mass 

kg 

dispprt 

output 

input 

Global 

agen2 

xmaug 

Auxiliary  vehicle  mass 

kg 

athrev 

input 

Global 

ageni 

xmiad 

Continuous  portion  of  vehicle  mass 

kg 

aderl 

input 

Global 

agen2 

y 

Y component  of  plumbline  position 
vector 

m 

dpir 

input 

Global 

forint 

2 

Z component  of  piumbline  position 
vector 

m 

dpir 

input 

Global 

forint 
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Subroutine  Dispprt 
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3^  Subroutine  DPIR 

3.35.1  Purpose 

The  purpose  of  this  subroutine  is  to  provide  the  integration  of  the 
equations  of  motion  for  both  the  forward  and  backward  integration. 
Subroutines  called  by  this  subroutine  are  defined  through  the  calling 
argument  to  the  subroutine  DESOLV.  Three  integration  methods  are 
available  which  are  a variable  step  Adams-Moulton,  a fixed  step  Runge- 
Kutta,  and  a fixed  step  Adams-Moulton. 

3.35.2  Variable  Listing 

3.35.3  Subroutines  Called: 


Name 

Function 

ADER 

Calculates  the  time  independent  portion  of  the  equations 
of  motion  during  forward  integration 

ADERl 

Calculates  the  time  dependent  portion  of  the  equations 
of  motion  during  forward  integration 

AEOSR 

Stores  state  variable  during  forward  integration 

ALIFT 

Controls  lift-off  logic  based  on  thrust-to- weight  during 
forward  integration 

AQMAX 

Prints  maximiun  dynamic  pressure 

AROLL 

Calculates  parameters  and  prints  roll  maneuver  events 

ATHREV 

Controls  thrust  event  logic  during  forward  trajectory 

ATHRO 

Controls  MPS  throttle  events  logic  during  forward 
trajectory 

ATILT 

Controls  tilt-over  maneuver  logic  during  forward 
integration 

AWDEV 

Controls  weight  drop  event  logic  during  forward 
integration 

AXPRT 

Prints  trajectory  output  at  print  intervals  during 
forward  integration 

BDRII 

Calculates  components  of  the  equations  of  motion  for  the 
backward  trajectory 
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BDRI 

BGLIM 

BKEND 

BSAVEG 

BTHREV 

BWDEV 

DISPPRT 

GLIMT 


Calculates  equations  of  motion  for  the  backward 
trajectory 

Controls  logfic  for  acceleration  limits  during  backward 
integration 

Terminates  backward  integration 
Calculates  the  impulse  response  functions  and 
integrates  the  weighting  matrix 

Controls  thrust  event  logic  during  backward  integration 
Controls  weight  drop  events  during  backward 
integration 

Prints  dispersion  parameters  on  output  file 
Controls  acceleration  logic  during  forward  integration 


3.35.4  Calling  Subroutines: 
Name  Function 


DESOLV  Initializes  integration  constants  and  calls  integration 

routine 


3.35.5  Fortran  Listing 
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dpir 


Variable 

Variable  Definition 

Units 

Source 

I/O 

Status 

Common 

Block 

a 

Tempoary  variable  in  integration 

dpir 

output 

input 

Global 

desi 

aco(1  0) 

Constants  for  integration  routine 

desolv 

input 

Global 

modi 

ak 

Temporary  storage  variable  for  time 

sec 

output 

input 

Global 

des2 

b 

Temporary  variable  in  integration 

dpir 

output 

input 

Global 

desi 

bco(1  0) 

Coefficients  for  integration  routine 

desolv 

input 

Global 

modi 

big 

Big  number  used  for  upper  bound 

Local 

ck(1  0) 

Coefficients  of  differences  in 
integration  variables 

output 

input 

Global 

desi 

cut 

Temporary  storage  variable  for  time 

sec 

output 

input 

Global 

des2 

d 

Temporary  variable  used  in  integration 

Global 

desi 

delt 

Time  interval 

sec 

output 

input 

Global 

desi 

delu 

Temporary  variable  used  to  calculate 
step  size 

■ 

Global 

desi 

deix 

Temporary  storage  array 

Local 

dely 

Temporary  storage  variable  for  time 

sec 

dpir 

output 

input 

Global 

des2 

delz 

Temporary  storage  variable  for  time 

sec 

dpir 

output 

input 

Global 

des2 

dt 

Step  size 

Local 

dusc 

Delta  u scale  factor  in  integration 
routine 

desolv 

input 

Global 

desi 

dy 

Temporary  variable 

Local 

el 

Lower  limit  for  stepsize  control 

sec 

desolv 

input 

Global 

desi 

enpl 

Temporary  variable  used  in  step  size 
control 

output 

Global 

desi 

eost 

Logical  variable  to  denote  call  to 
termination  routine  in  integration 
routine 

output 

Global 

desi 

error 

Logical  variable  to  denote  error  in 
integration  routine 

output 

Global 

desi 

eu(1) 

Upper  limit  for  stepsize  control 

sec 

desolv 

input 

Global 

desi 

fact] 

Temporary  variable 

Local 
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Variable 


ffmpi 


Variable  Definition 


Temporary  storage  variable  for  time 


Temporary  variable 


Temporary  storage  variable  for  time 


Temporay  variable  used  to  calculate 
table  of  backward  differences  in 
integration  routine 


Temporary  storage  variable  for  time 


Temporay  variable  used  to  calculate 
table  of  backward  differences  in 
integration  routine 


Temporary  variable 


Temporary  variable 


Logical  variable  used  in  step  size 
control 


Integration  step  size 


Logical  variable  used  in  step  size 
control 


Maximum  step  size 


Minimum  step  size  when  using  variable  sec 
step  integration  routine 


Difference  in  time  used  in  integration  sec 
routine 


Maximum  step  size 


Nominal  step  size 


Nominal  step  size 


Maximum  step  size 


Step  size  to  switch  to  in  Adams  Moulton 


Status  Common 
Block 


Integer  array  that  is  used  as  an 
indicator  block  for  triggers  ( =1, 
dependent:  =0.  independent) 


Integer  to  indicate  flag  triggers 


Step  size  control  indicator  (=1,  normal 
return;  =2.  step  size  is  too  big:  =3, 


output  Global  des1 
input 


output  Global  desi 
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dpir 


Variable  Definition 
step  size  is  too  small) 


Flag  indicating  discontinuity 


Logical  variable  for  integration  restart 


Temporary  storage  variable  for  time 


Source  I/O 


Internal  index  in  integration  routine 


Integration  type  flag  for  forward 
trajectory 


Index  (k-j) 


Index  (k-1) 


Control  index  for  control  of  Runge-Kutta 
or  AdamS'Moulton  logic  in  main  loop 


Error  Indicator  in  integration  routine 


output 


output 

input 


output 

input 


output 

input 


output 


output 


output 


dpir  output 


Number  of  derivatives 


Index  in  integration  routine 


Index  in  integration  routine 


input 

output 


Index  used  in  integration  routine 


Number  of  dependent  triggers 


Number  of  differential  equations  to 
Integrate 


Number  of  independent  triggers 


output 

input 


output 


input 

output 


output 


Status  Common 
Block 

Local 

Global  des1 
Local 

Global  des2 
Global  des2 
Global  des2 
Local 

Global  des2 

Global  desi 

Local 

Local 

Global  desi 

Local 

Local 

Global  desi 

Global  desi 
Local 

Global  desi 
Local 

Global  desi 
Global  desi 

Local 

Global  desi 
Global  desi 
Global  desi 
Global  desi 
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Variable 


Variable  Definition 


The  total  number  of  possible  first  order 
differential  equations  to  be  solved 


The  total  number  of  possible  first  order 
differential  equations  to  be  solved 


Index  in  integration  routine 


Number  of  equations  to  integrate 


Trigger  index  in  integration  routine 


Actual  number  of  differential  equations 
to  solve  in  integration  routine 


Flag  in  integration  routine 


Number  of  triggers 


Trigger  flag  for  1st  event  in  calling 
argument 


Trigger  flag  for  11th  event  in  calling 
argument 


Trigger  flag  for  2nd  event  in  calling 
argument 


Trigger  flag  for  3rd  event  in  calling 
argument 


Trigger  flag  for  4th  event  in  calling 
argument 


Trigger  flag  for  5th  event  in  calling 
argument 


Trigger  flag  for  6th  event  in  calling 
argument 


Trigger  flag  for  7th  event  in  calling 
argument 


Trigger  flag  for  8th  event  in  calling 
argument 


Trigger  flag  for  9th  event  in  calling 
argument 


Number  of  triggers 


Internal  flag  in  integration  routine 


Logical  flag  to  define  odd  events 


Source  I/O  Status  Common 

Block 


input  Global  desi 


dpir 


Variable 

Variable  Definition 

Units 

Source 

I/O 

Status 

Common 

Block 

pdt 

Half  the  step  size 

Local 

prod 

Temporary  variable 

Local 

py 

Saved  values  of  integrated  equations 

Local 

q 

T emporary  variable 

output 

Global 

desi 

qq(10) 

Temporary  variables  used  to  calculate 
coefficients  of  differences 

output 

Input 

Global 

desi 

r 

Temporary  variable  used  in  integration 

output 

input 

Global 

des1 

redot 

Logical  variable  used  to  advoid 
recalculation  of  the  differential  equation 
routines 

output 

Global 

desi 

rj(1  1) 

Temporary  array  used  for  the  step  size 
control  associated  with  triggers 

output 

input 

Global 

desi 

sk 

Temporary  variable  used  in  integration 
routine 

Global 

desi 

skp 

Temporary  variable  used  in  integration 
routine 

output 

input 

Global 

desi 

sma 

Logical  flag  to  denote  stops  in 
integration  to  define  triggers 

output 

Global 

desi 

stepng 

Logical  variable  used  for  step  size 
control  in  integration  routine 

output 

Global 

desi 

sum 

Temporary  variable 

Local 

t 

Time 

sec 

output 

input 

Global 

des2 

tc 

Time  variable 

Local 

temp 

Temporary  variable 

Local 

tgo 

Time  to  go  in  integration  routine 

sec 

output 

input 

Global 

des2 

ti 

Temporary  variable  in  integration 

sec 

output 

input 

Global 

des2 

tmin 

Minimum  time  when  defining  step  size  in 
integration  routine 

sec 

output 

input 

Global 

des2 

tpi 

Temporary  storage  variable  for  time 

sec 

output 

input 

Global 

des2 

tp2 

Temporary  storage  variable  for  time 

sec 

output 

Input 

Global 

des2 

t r 

Temporary  variable  used  in  integration 

input 

output 

Global 

des2 

trip 

Stored  time  used  in  calculation  of  step 

sec 

output 

Global 

des2 
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Variable 


Variable  Definition 
size  in  integration 


Saved  value  of  time  (or  independent 
parameter)  in  integration  routine 


Saved  value  of  time  (or  independent 
parameter)  in  Integration  routine 


Name  of  variables  being  tested 


Name  of  the  variable  being  tested  for 
the  1st  event  in  calling  argument 


Name  of  the  variable  being  tested  for 
the  11th  event  in  calling  argument 


Name  of  the  variable  being  tested  for 
the  2nd  event  in  calling  argument 


Name  of  the  variable  being  tested  for 
the  3rd  event  in  calling  argument 


Name  of  the  variable  being  tested  for 
the  4th  event  in  calling  argument 


Name  of  the  variable  being  tested  for 
the  5th  event  in  calling  argument 


Name  of  the  variable  being  tested  for 
the  6th  event  in  calling  argument 


Name  of  the  variable  being  tested  for 
the  7th  event  in  calling  argument 


Name  of  the  variable  being  tested  for 
the  8th  event  in  calling  argument 


Name  of  the  variable  being  tested  for 
the  9th  event  in  calling  argument 


Temporary  variables  used  inintegration 
routine 


Temporary  variable  used  In  integration 
routine 


Limit  on  dependent  variables 


The  smallest  value  of  a dependent 
variable  that  will  affect  the  automatic 
step  size  logic 


Temporary  storage  array 


The  value  of  the  variable  which  the 
trigger  interrupt  routine  is  to  be 
executed 


The  value  of  var  at  which  the  trigger 


Source  I/O  Status  Common 

Block 


output  Global  des2 
input 


output  Global  des2 
input 


Variable 


Variable  Definition 


interrupt  routine  is  to  be  executed  for 
the  1st  event  in  calling  argument 


The  value  of  var  at  which  the  trigger 
interrupt  routine  is  to  be  executed  for 
the  11th  event  in  calling  argument 


The  value  of  var  at  which  the  trigger 
interrupt  routine  is  to  be  executed  for 
the  2nd  event  in  calling  argument 


The  value  of  var  at  which  the  trigger 
interrupt  routine  is  to  be  executed  for 
the  3rd  event  in  calling  argument 


The  value  of  var  at  which  the  trigger 
interrupt  routine  is  to  be  executed  for 
the  4th  event  in  calling  argument 


The  value  of  var  at  which  the  trigger 
interrupt  routine  is  to  be  executed  for 
the  5th  event  In  calling  argument 


The  value  of  var  at  which  the  trigger 
interrupt  routine  is  to  be  executed  for 
the  6th  event  in  calling  argument 


The  value  of  var  at  which  the  trigger 
interrupt  routine  Is  to  be  executed  for 
the  7th  event  in  calling  argument 


The  value  of  var  at  which  the  trigger 
interrupt  routine  is  to  be  executed  for 
the  8th  event  in  calling  argument 


The  value  of  var  at  which  the  trigger 
interrupt  routine  is  to  be  executed  for 
the  9th  event  in  calling  argument 


Source  I/O  Status  Common 

Block 
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11  NTR  = NTRll 
VAR  = VARll 
ZV  = ZVll 
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Subroutine  FIND 


3.36.1  Purpose 

The  purpose  of  this  subroutine  is  to  determine  pol3momials  based  on 
attitude  time  history  information. 

3.36.2  Variable  Listing 

3.36.3  Subroutines  Called: 

Name  Function 

MATINV  Calculates  matrix  inverse 

3.36.4  Calling  Subroutines: 

Name  Function 

AFORUN  Controls  forward  integration  logic  and  calls  integration 

routine 

ATHREV  Controls  thrust  event  logic  during  forward  integration 

ATILT  Controls  tilt-over  logic  during  forward  integration 


3.36.5  Fortran  Listing 
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Variable 


Variable  Definition 


Polynominal  coefficients 


Temporary  matrix 


Array  of  dependent  variables 


Array  of  independent  variables 


Order  of  required  polynomial 


O CD 


3^7 


Function  FUNISP 


3.37.1  Purpose 

This  function  calculates  the  specific  impulse  based  on  an  input 
throttle  value.  The  entry  routine  DEVISP  is  also  contained  within  this 
subroutine.  The  entry  routine  calculates  the  partial  derivative  of  the 
specific  impulse  with  respect  to  mass. 

3.37.2  Variable  Listing 

3.37.3  Subroutines  Called: 

None 


3.37.4  Calling 

Name 

ADER 

AINIT 

ATHREV 

BADLX 

BDRI 

GLIMT 

MASTRE 

SUM15STG 

SUMARY 

SUMHLLV 


Subroutines: 

Function 

Calculates  the  time  independent  portion  of  the  equations 
of  motion  during  forward  integration 
Input  routine 

Controls  thrust  event  logic  during  forward  integration 
Calculates  partial  derivative  of  constraints  with  respect 
to  control  parameters 

Calculates  equations  of  motion  for  the  backward 
trajectory 

Controls  acceleration  logic  during  forward  integration 
Controls  total  program  logic 
Prints  weight  summary  output  for  liqmd  vehicle 
Prints  weight  summary  output  for  Space  Shuttle 
Prints  weight  summary  output  for  Strap-on  vehicle 


3.37.5  Fortran  Listing 


THIS  FUNCTION  CALCULATES  THE  SSME  ISP  AS  A FUNCTION  OF  POWER 
LEVEL  FROM  A QUADRATIC  EQUATION  WHOSE  COEFFICIENTS  ARE 
DETERMINED  BY  THE  ROUTINE  SIMUL  CALLED  IN  AINIT. 
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3.38 


Subroutine  GOUT 


3.38.1  Purpose 

This  subroutine  displays  a character  string  at  the  terminal  and 
writes  it  to  the  print  file  and  nm  time  log  file,  if  they  are  active. 

3.38.2  Variable  Listing 

3.38.3  Subroutines  Called: 

None 


3.38.4  Calling 

Name 

AREAIN 

COPLDF 

INITIAL 

LDSWI 

LLPRT 


Subroutines: 

Function 

Controls  user  interface 

Writes  a list  directed  file  based  on  user  requirements 

Initializes  program  input 

Creates  and  writes  list  directed  file 

Controls  user  interface  to  print  various  output  tables 


3.38.5  Fortran  Listing 
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gout 


Variable 

Variable  Definition 

Units 

Source 

I/O 

Status 

Common 

Block 

jout 

Output  file  index 

initial 

input 

Global 

ccc 

nc 

Number  of  characters  in  string 

Local 

string 

Output  string  to  display 

Local 

426 


3^  Subroutine  HOLD  IT 

3.39.1  Purpose 

This  subroutine  creates  a pause  within  the  run  stream. 

3.39.2  Variable  Listing 

3.39.3  Subroutines  Called: 

None 

3.39.4  Calling  Subroutines: 

Name  Function 

LLPRT  Controls  user  interface  to  print  various  output  tables 

3.39.5  Fortran  Listing 
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holdit 


Variable 

demand 

dummy 

graph 


Variable  Definition 

Logical  indicating  the  operational  mode 
Temporary  variable 
Unused  logical  variable 
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CHARACTER *4  DUMMY 


3.40 


Subroutine  IINRC 


3.40.1  Purpose 

This  subroutine  is  called  from  subroutine  AINIT  to  read  integer 
values  from  the  aerodynamic  database. 

3.40.2  Variable  Listing 

3.40.3  Subroutines  Called: 

None 

3.40.4  Calling  Subroutines: 

Name  Function 

AINIT  Input  routine 

3.40.5  Fortran  Listing 
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SUBROUTINE  IINRC(IVAL, IREC, ILOC) 

THIS  SUBROUTINE  IS  CALLED  FROM  AINIT  TO  READ  INTEGER  VALUES 
FROM  THE  DATA  BASE (MASTREDB . DAT)  . 


3.41 


Subroutine  INITIAL 


3.41.1  Purpose 


The  purpose  of  this  subroutine  is  to  initialize  the  program  by 
requesting  from  the  user  information  concerning  whether  the  session  is  in 
a demand  or  interactive  mode.  If  in  a demand  mode,  additional  questions 
are  requested  concerning  print  files  and  graphic  terminal  usage. 

3.41.2  Variable  Listing 


3.41.3  Subroutines  Called: 
Name  Function 


GOUT 

IS_PROCESS_ 

INTERACTIVE 


Displays  a character  string  at  the  terminal 

Inquires  whether  the  current  process  is  in  interactive  or 

demand  mode 


3.41.4  Calling  Subroutines: 

Name  Function 

MASTRE  Controls  total  program  logic 

3.41.5  Fortran  Listing 
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Variable 


Variable  Definition 


ans 

Responce  from  interactive  mode 

charay 

Print  file  name 

demand 

Logical  indicating  the  operational  mode 

fname 

Output  file  name 

graph 

Unused  logical  variable 

T emporary  variable 

jOUt 

Output  file  index 

jout 

Output  file  index 

pf 

Print  file  flag 

tkl  9in 

Logical  flag  to  indicate  graphic  terminal 

3.42 


Subroutine  INTER 


3.42.1  Purpose 

The  purpose  of  this  subroutine  is  perform  linear  interpolation  of 
nonlinear  aerod3mamic  data. 

3.42.2  Variable  Listing 

3.42.3  Subroutines  Called: 

None 

3.42.4  Calling  Subroutines: 

Name  Function 

CAERO  Evaluates  nonlinear  aerodynamic  data 

3.42.5  Fortran  Listing 
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Variable 

Variable  Definition 

a 

Aerodynamic  coefficient  storage  array 

ang 

Independent  parameter 

c 

Storage  of  aerodynamic  coefficients 

ia1 

Index  of  2nd  element  of  c array 

ia2 

Index  of  2nd  element  of  c array 

id 

Minimum  index  on  1st  element  of  c 
array 

ic2 

Maximum  index  on  1st  element  of  c 
array 

taba 

Independent  table 

temp 

Temporary  variable 

tempi 

Temporary  variable 

O CD 


SUBROUTINE  INTER {A, C, lAl, I A2 , ANG, TABA, ICl, IC2) 


3.43 


Subroutine  IS.PROCESSJNTERACTIVE 


3.43.1  Purpose 

This  subroutine  inquires  whether  the  current  process  is  in 
interactive  or  demand  mode. 

3.43.2  Variable  Listing 

3.43.3  Subroutines  Called: 

None 

3.43.4  Calling  Subroutines: 

Name  Function 

INITIAL  Initializes  program  execution 

3.43.5  Fortran  Listing 
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is_process_interactive 


Variable 

answer 

buffer 

eq_list 

itemlist 


Variable  Definition 

Flag  denoting  Interactive  status 
Buffer  index 

Temporary  storage  array 
Temporary  storage  array 


SUBROUTINE  IS  PROCESS  INTERACTIVE { ANSWER 
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3.44 


Subroutine  LDSWI 


3.44.1  Purpose 

This  subroutine  creates  and  writes  a direct  access  file  (used  in 
interactive  mode). 

3.44.2  Variable  Listing 

3.44.3  Subroutines  Called: 

Name  Function 

GOUT  Prints  character  strings  to  the  terminal 

3.44.4  Calling  Subroutines: 

Name  Function 

COPLDF  Writes  a list  directed  file  based  on  user  requirements 

3.44.5  Fortran  Listing 
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Variable 

Variable  Definition 

contrl 

Index  number  of  direct  access  file 

ctemp 

Temporary  storage  array 

Idcttm 

Record  length  divided  by  2 

ie 

Index  to  determine  the  number  of  times 
that  the  file  has  been  read 

ierr 

Error  index 

irecl 

Record  length 

itemp 

Temporary  storage  array 

merr 

File  reading  error  flag 

n r 

Record  number 

n wr 

Number  of  records  on  input  file 

Status 

Local 

Local 

Local 

Local 

Local 

Local 

Local 


Local 


Local 


O CD 


3.45 


Subroutine  LDWRIT 


3.45.1  Purpose 

This  generic  routine  writes  to  a specified  direct  access  file. 

3.45.2  Variable  Listing 

3.45.3  Subroutines  Called: 

None 

3.45.4  Calling  Subroutines: 

Mams  Function 

COPLDF  Writes  a list  directed  file  based  on  user  requirements 

3.45.5  Fortran  Listing 
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3.46 


Subroutine  LLPRT 


3.46.1  Purpose 

This  subroutine  controls  user  interface  to  print  constraints  and 
optimized  updated  values,  print  control  variable  update,  print  parameter 
summary  table,  and  print  load  indicator  table. 

3.46.2  Variable  Listing 

3.46.3  Subroutines  Called: 

Name  Function 

GOUT  Prints  character  strings  to  the  terminal 

HOLDIT  Pause  routine 

3.46.4  Calling  Subroutines: 

Name  Function 

MENU  Controls  calls  to  different  program  modes 

3.46.5  Fortran  Listing 
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Variable 


Variable  Definition 


Logical  value  to  indicate  parameter 
convergence 


Temporary  storage  array 


Case  number 


Storage  array  for  headings  in  printout 


Array  defining  constraint  titles 


File  control  Index 


File  control  index 


File  control  index 


File  control  index 


File  control  index 


File  control  index 


Output  unit  names 


Indicator  for  positive  definite  values  of 
huu  matrix 


File  control  index 


File  control  index 


Character  string  array 


Status  of  constraints 


Temporary  storage  array 


Temporary  variable 


CALL  GOUT('  LOAD  INDICATOR  TABLE',  21) 


3.47 


Subroutine  MASSPRO 


3.47.1  Purpose 

This  subroutine  is  an  alternate  method  of  calculating  mass 
properties.  The  routine,  based  on  predetermined  data,  calculates  the  center 
of  gravity  components  in  a dynamic  fashion  based  on  the  current  mass 
overboard  and  time  changes. 

3.47.2  Variable  Listing 

3.47.3  Subroutines  Called: 

Name  Function 

SPLINE  3rd  order  spline  interpolation  model 

3.47.4  Calling  Subroutines: 

Name  Function 

ADERl  Calculates  the  time  dependent  portion  of  the  equations 

of  motion  during  forward  integration 
AINIT  Input  routine 

BDRII  Calculates  components  of  the  equations  of  motion  for  the 

backward  trajectory 

3.47.5  Fortran  Listing 
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masspro 


Variable  Variable  Definition 


Spline  Coefficient  for  interpolation 


Spline  coefficient  for  interpolation 


Booster  lateral  component  of  centerof 
gravity 


boblatp  Derivative  of  booster  lateral  component 

of  CG  with  respect  to  mass 


Booster  longitudinal  component  of 
center  of  gravity 


boblonp  Derivative  of  booster  longitudinal 

component  of  CG  with  respect  to  mass 


bobmass  Booster  mass  overboard 


bobnor  Booster  normal  component  of  centerof 

gravity 


bobnorp  Derivative  of  booster  normal  component 

of  CG  with  respect  to  mass 


bolaspi  Table  for  booster  lateral  CG 


bolatcg  Booster  lateral  CG  input  table  from 

mass  properties  program 


boloncg  Booster  longitudinal  CG  input  table  from 

mass  properties  program 


bolospi  Table  for  booster  longitudinal  CG 


bomaspi  Independent  mass  table  for  booster 


bomass  Booster  mass  overboard  table 


bomdot  Booster  mass  flowrate 


Booster  mass  avialable  table 


bonorcg  Booster  normal  CG  Input  table  from 

mass  properties  program 


bonospi  Table  for  booster  normal  CG 


Spline  coefficient  for  interpolation 


calcpar  Logical  flag  to  indicate  calculation  of 

partials 


eventnum  Number  of  event 


iplatcg  Lateral  component  of  CG  for  inerts 


Iploncg  Longitudinal  component  of  CG  for  inerts 


Inert  mass  table 


Normal  component  of  CG  for  inerts 


Stage  inert  mass 


masspro 


Variable 

Variable  Definition 

last 

Previous  index  for  spline  interpolation 

latcg 

Lateral  center  of  gravity  component 

latcgp 

Partial  derivative  of  lateral  CG  with 
respect  to  mass 

latcgpb 

Partial  derivative  of  lateral  CG  with 
respect  to  booster  mass 

latcgpm 

Partial  derivative  of  lateral  CG  with 
respect  to  main  engine  mass 

loncg 

Total  longitudinal  center  of  gravity 

loncgp 

Partial  derivative  of  total  longitudinal 
CG  with  respect  to  mass 

loncgpb 

Partial  derivative  of  total  longitudinal 
CG  with  respect  to  booster  mass 

loncgpm 

Partial  derivative  of  total  longitudinal 
CG  with  respect  to  main  engine  mass 

m 

Mission  designate  (equivalent  to  nb) 

mnbtat 

Main  engine  lateral  component  of  center 
of  gravity 

mnblatp 

Derivative  main  engine  lateral  CG  with 
respect  to  mass 

mnblon 

Main  engine  longitudinal  component  of 
center  of  gravity 

mnblonp 

Derivative  main  engine  longitudinal  CG 
with  respect  to  mass 

mnbmass 

Main  engine  mass  overboard 

mnbnor 

Main  engine  normal  component  of  center 
of  gravity 

mnbnorp 

Derivative  main  engine  normal  CG  with 
respect  to  mass 

mnlaspi 

Main  engine  lateral  CG  table 

mnlatcg 

Main  engine  lateral  CG  input  table 

mnloncg 

Main  engine  longitudinal  CG  input  table 

mnlospi 

Main  engine  longitudinal  CG  table 

mnmaspi 

Main  engine  mass  overboard  table 

mnmass 

Main  engine  mass  overboard  input  table 

mnmdot 

Main  engine  flowrate 

mnmov 

Main  engine  mass  available 

mnnorcg 

Main  engine  normal  CG  input  table 

Units  Source  I/O 
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masspro 


Variable 

mnorspl 

moboos 

momain 

mpname 

norcg 

norcgp 

norcgpb 

norcgpm 

ntime 


Variable  Definition 


Main  engine  normal  CG  table 
Booster  mass 
Main  engine  mass 

Name  of  alternate  mass  properties  input 
file 

Total  normal  component  of  center  of 
gravity 

Derivative  of  normal  CG  with  respect  to 
mass 

Derivative  of  normal  CG  with  respect  to 
booster  mass 

Derivative  of  normal  CG  with  respect  to 
main  engine  mass 

Index  to  indicate  first  time 


Units  Source  I/O  Status  Common 

Block 
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3.48  Subroutine  MATINV 

3.48.1  Purpose 

This  subroutine  calculates  the  inversion  of  an  nxn  matrix. 

3.48.2  Variable  Listing 

3.48.3  Subroutines  Called: 

None 

3.48.4  Calling  Subroutines: 

Name  Function 

ANEWCH  Evaluates  the  optimization  and  restoration  steps  for  the 

optimization  scheme 

FIND  Determines  attitude  pol3momials  for  1st  stage 

3.48.5  Fortran  Listing 
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Variable  Definition 


matinv 


Temporary  storage  array 


Maximum  element  of  matrix  (equivalent 
to  t and  swap) 


Input/output  matrix 


Column  index  (equivalent  to  jcolum) 


Temporary  storage  index 


Pivot  array  index 


Row  index  (equivalent  to  jrow) 


Column  index  (equivalent  to  icolum) 


Index 


Row  index  (equivalent  to  irow) 


Index 


Number  of  columns  or  rows 


Pivot  array 


Maximum  element  of  matrix  (equivalent 
to  t and  amax) 


Maximum  element  of  matrix  (equivalent 
to  amax  and  swap) 
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REDUCE  NON-PIVOT  ROWS 


3.49 


Subroutine  MENU 


3.49.1  Purpose 

This  subroutine  provide  an  interface  for  the  user  if  the  user  is  in  the 
interactive  mode  of  operation.  Based  on  user  input,  the  subroutine  controls 
the  calls  to  the  area  mode,  execute  mode,  print  mode,  and  namelist  input 
selection. 

3.49.2  Variable  Listing 

3.49.3  Subroutines  Called: 

Name  Function 

AINIT  Input  routine 

AREAIN  Controls  user  interface 

LLPRT  Controls  user  interface  printing 

3.49.4  Calling  Subroutines: 

Name  Function 

MASTRE  Controls  total  program  logic 

3.49.5  Fortran  Listing 
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menu 


Variable 

Variable  Definition 

Units 

Source 

I/O 

Status 

Common 

Block 

demand 

Logical  indicating  the  operational  mode 

initial 

input 

Global 

ccc 

itape 

Logical  flag  to  indicate  tape  output 

outpu 

Global 

tol 

iuse 

Operational  mode  index 

outpu 

Global 

iuse 

ntime 

Case  number  identification  used  in 
subroutine  ainit  to  reduce  input 
requirements  for  multiple  cases 

output 

input 

Global 

ntime 
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COMMON /CCC/ GRAPH, JOUT, DEMAND 


■EXECUTE  BATCH /DEMAND 


3J50 


Subroutine  RRAINT 


3.50.1  Purpose 

Initialization  routine  for  the  Range  Reference  atmosphere. 

3.50.2  Variable  Listing 

3.50.3  Subroutines  Called: 

Nam£  Function 

RRRATM  Range  Reference  atmosphere  model 

3.50.4  Calling  Subroutines: 

Name  Function 

AINIT  Input  routine 

3.50.5  Fortran  Listing 
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Variable 


atmtbe 


Variable  Definition 


Name  of  atmospheric  subroutine  being 
used  for  the  simulation 


Name  of  atmospheric  subroutine  being 
used  for  the  simulation 


English  unit  output  array  of  atmopsheric 
parameters 


Units  Source 


Status  Common 
Block 


atmtbl(110,6  Storage  matrix  for  atmospheric 
parameters 


demand 


Logical  indicating  the  operational  mode 


Atmospheric  density 


First  altitude  increment 


Second  altitude  increment 


Third  altitude  increment 


Atmospheric  parameter  table  index 


Atmospheric  model  index 


Index  for  spline  interpolation  of 
atmospheric  parameters 


Previous  index  of  atmospheric 
parameter  spline  interpolation 


Maximum  number  of  points  in 
atmospheric  table 


Character  variable  representing  the 
name  of  the  month  used  for  range 
reference  atmosphere  calculations 


Index  for  month 


Atmospheric  month  indicator 


Index  used  for  output  page  control 


Atmospheric  pressure 


Atmospheric  density 


Name  of  month  used  to  define  wind  table 
used 


Site  and  month  Index 


Atmospheric  temperature  coefficient 
tables 


Name  of  launch  site  array 


rraint 


Variable 

vsos 

xmu 

z 

z1 

z2 

z3 


Variable  Definition 

Speed  of  sound 
Viscosity  coefficient 
Altitude 

Upper  limit  of  altitude  regime  for 
atmopshere  calculations 

Upper  limit  of  altitude  regime  for 
atmopshere  calculations 

Upper  limit  of  altitude  regime  for 
atmopshere  calculations 
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WRITE (JO, 11)  (ATMTBE(L,M) ,M-1,6) 
NLINES=NLINES+1 
IF(NLINES.EQ. 55)  NLINES=6 
CONTINUE 
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Subroutine  RRASPL 


3.51.1  Purpose 

This  subroutine  provides  spline  interpolation  of  the  Range  Reference 
atmosphere  model. 

3.51.2  Variable  Listing 

3.51.3  Subroutines  Called: 

Name  Function 

SPLINE  3rd  order  spline  interpolation  model 

3.51.4  Calling  Subroutines: 

Name  Function 

ADER  Calculates  the  time  independent  portion  of  the  equations 

of  motion  during  forward  integration 
AINIT  Input  routine 

BDRII  Calculates  components  of  the  equations  of  motion  for  the 

backward  trajectory 

3.51.5  Fortran  Listing 
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Variable 


Source  I/O  Status  Common 

Block 


Spline  coefficients  for  atmospheric 
parameter  interpolation 


Atmospheric  output  array 


Partial  derivative  output  array  for 
atmospheric  parameters 


Spline  coefficients  for  atmospheric 
parameters  interpolation 


Spline  coefficients  for  atmospheric 
parameters  interpolation 


Previous  index  of  atmospheric 
parameter  spline  interpolation 


Output  array  of  atmospheric 
parameters 


rraint  Input  Global  atmos 


variabl 
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3J52 


Subroutine  RRRATM 


3.52.1  Purpose 

This  subroutine  is  the  Range  Reference  atmosphere  model.  The  file 
containing  this  subroutine  also  includes  subroutines  RRRAIN,  PR63,  and 
VR71.  Subroutine  RRRAIN  interpolates  either  the  monthly  range 
reference  table  or  the  final  atmosphere  table.  Subroutine  PR63  calculates 
atmospheric  parameters  based  on  the  reference  Patrick  AFB  atmosphere 
model.  Subroutine  VR71  calculates  atmospheric  parameters  based  on  the 
reference  Vandenburg  AFB  atmosphere  model. 

3.52.2  Variable  Listing 

3.52.3  Subroutines  Called: 

Name  Function 

PR63  1963  Patrick  AFB  reference  atmosphere  model 

RRRAIN  Interpolates  either  the  monthly  range  reference  table  or 

the  final  atmosphere  table 

VR71  1971  Vandenburg  AFB  reference  atmosphere  model 

3.52.4  Calling  Subroutines: 

Name  Function 

RRAINT  Initializes  the  Range  Reference  atmosphere  model 

3.52.5  Fortran  Listing 
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rrratm 


Variable 


altsig(7,2) 


degfac 


demand 


finlat(70,4) 


Variable  Definition 


Altitude 


Storage  array 


Conversion  from  meters  to  feet 


Dispersion  Input  table  (altitude  and 
sigma  level) 


Temporary  stoarage  array 


Atmospheric  density 


Temperature  conversion  factor 
(degrees  K to  degrees  R) 


Logical  indicating  the  operational  mode 


Conversion  from  g/m^3  to  slugs/ft''3 


Atmospheric  density 


Molecular  weight  tables 


Partial  derivative  of  atmospheric 
pressure  with  respect  to  altitude 


Partial  derivative  of  density  with 
respect  to  altitude 


Partial  derivative  of  temperature  with 
respect  to  altitude 


Temporary  value 


Final  atmosphere  table 


Logical  flag  denoting  pass  number 


Altitude 


Status  Common 
Block 


rrratm 


Variable 


Variable  Definition 


Index  to  indicate  use  of  either  the  RRRA 
atmosphere  or  Final  atmosphere  tables 


Status  Common 
Block 


Last  point  counter 


Last  change  flag 


Index 


Coefficient  for  calculation  of 
atmospheric  pressure  derivative 


Print  line  index 


Molecular  weight  table 


Month  index  number 


Month  index 


Index  for  month 


Molecular  weight 


Number  of  dispersion  changes 


Counter  index 


Month  index  index 


Record  number 


Atmospheric  pressure 


Pressure  coefficients 


Pressure  at  base 


Atmospheric  pressure  coefficients 


Output  array  of  atmospheric 
parameters 


Atmospheric  data  at  90km 


Atmospheric  pressure 


Print  flag  for  final  atmospheric  tables 


Conversion  form  lbs/ft''2  to  kg/m^2 


Sea  level  pressure 


Atmospheric  density 


Atmospheric  density 


Atmospheric  density  coefficient  tables 


Print  index 


output  Global  rrrac 
input 


rrratm 


Variable 


Variable  Definition 


Units  Source  I/O  Status 


rrotmp 


Atmospheric  density 


Correlation  coefficient  for  pressure 


Correlation  coefficient  for  temperature 


spdso 


tempk 


tempm 


rrraat(52,7)  Atmospheric  parameter  tables 


Sigma  level 


Launch  site  index 


Site  and  month  index 


Speed  of  sound 


Atmospheric  temperature 


Kinetic  temperature 


Molecular  temperature 


Virtual  temperature 


Atmospheric  temperature  coefficient 
tables 


Molecular  temperature 


Molecular  temperature  coefficient  table 


Speed  of  sound 
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Temporary  variable 


Temporary  variable 


Temporary  variable 


Temporary  variable 


Coefficients  for  calculation  of 
atmospheric  pressure 


Altitude 


Temporary  variable 


Temporary  variable 


Temporary  variable 


Temporary  variable 


Altitude  table 
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Altitude  in  kilometers 
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Subroutine  RTMRK 


3.53.1  Purpose 

This  subroutine,  when  called,  designates  termination  of  the 
integration  routine. 

3.53.2  Variable  Listing 

3.53.3  Subroutines  Called: 

None 


3.53.4  Calling 

Name 

ATHREV 

BKEND 

BTHREV 


Subroutines: 

Function 

Controls  thrust  event  logic  during  forward  integration 

Terminates  backward  integration 

Controls  thrust  event  during  backward  integration 


3.53.5  Fortran  Listing 
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IMPLICIT  DOUBLE  PRECISION  (A- 


Subroutine  SDATA 


354 
3.54.1  Purpose 


This  is  a block  data  subroutine  which  stores  data  for  the  weight 
summaiy  table  for  the  Space  Shuttle. 

3.54J2  Variable  Listing 

3.54.3  Subroutines  Called: 

N/A 

3.54.4  Calling  Subrnnt.inps- 

N/A 

3.54.5  Fortran  Listing 
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sdata 


Variable 

a(4,67) 


Variable  Definition 


Weight  storage  array 


for  output 


Units  Source  I/O  Status  Common 

Block 


lbs  ainit  output  Global  astor 
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Subroutine  SEARCH 


3.55.1  Purpose 

The  purpose  of  this  subroutine  is  to  search  a table  of  values  for  a 
unique  value.  Integer  values  are  output  which  provide  the  table  indicies 
which  surround  the  value.  Used  with  the  interpolation  of  three 
dimensional  nonlinear  aerodynamic  data. 

3.55.2  Variable  Listing 

3.55.3  Subroutines  Called: 

None 

3.55.4  Calling  Subroutines: 

Name  Function 

CAERO  Evaluates  nonlinear  aerodynamics 

3.55.5  Fortran  Listing 
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Variable 

Variable  Definition 

ang 

Search  parameter 

ia 

Table  Index  before  value 

lb 

Table  index  after  value 

n 

Number  of  points  in  table 

tab 

Table  of  values 

temp 

Temporary  variable 

tempi 

Temporary  variable 

o m 


SUBROUTINE  SEARCH (ANG,TAB,N, I A, IB) 


3J56 


Subroutine  SIMUL 


3.56.1  Purpose 

This  subroutine  solves  three  quadratic  equations  simulataneously 
and  returns  the  coefficients.  Used  to  define  the  specific  impulse  versus 
throttle  level  pol3momials  based  on  tabular  values. 

3.56.2  Variable  Listinfy 

3.56.3  Subroutines  Called: 

None 

3.56.4  Calling  Subroutines: 

Name  Function 

AINIT  Input  routine 

3.56.5  Fortran  Listing 
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simul 


Variable 

Variable  Definition 

a 

Temporary  storage  matrix 

b 

Temporary  storage  matrix 

biginx 

Largest  index 

bigvai 

Largest  value 

coef 

Output  coefficient  array 

Specific  impulse  table 

istg 

Stage  index 

k 

Number  of  columns  minus  1 

ncols 

Number  of  columns 

pi 

Power  level  tables 

temp 

Temporary  variable 

val 

Temporary  variable 

CD  O 


CALCULATE  ELEMENTS  OF  THE  B MATRIX 
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Subroutine  SPLINE 


3.57.1  Purpose 

This  subroutine  provides  a third  order  spline  interpolation  method. 

3.57.2  Variable  Listing 

3.57.3  Subroutines  Called: 

None 


3.57.4  Calling 

Name 

ADER 

ADERl 

BDRII 

MASSPRO 

RRASPL 


Subroutines: 

Function 

Calculates  the  time  independent  portion  of  the  equations 

of  motion  during  forward  integration 

Calculates  the  time  dependent  portion  of  the  equations 

of  motion  during  forward  integration 

Calculates  components  of  the  equations  of  motion  for  the 

backward  trajectory 

Calculates  dynamic  mass  properties 

Interpolates  Range  Reference  atmosphere  parameters 

using  the  spline  method 


3.57.5  Fortran  Listing 
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Variable  Variable  Definition 


Storage  array  for  spline  coefficients 


Storage  array  for  spline  coefficients 


Storage  array  for  spline  coefficients 


Temporary  variable 


Temporary  variable 


Temporary  variable 


Temporary  variable 


Temporary  variable 


Previous  index  in  table 


Array  index 


Dependent  variable  tables 


Temporary  variable 


Temporary  variable 


Temporary  array 


Temporary  array 


Temporary  array 


Independent  variable  table 


Temporary  variable 


Independent  variable  table 


Temporary  variable 


Dependent  variable  tables 


Partial  derivative  of  dependent  variable 
with  respect  to  independent  variable 


Dependent  variable  tables 
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Subroutine  SUM15STG 


3.58.1  Purpose 


This  subroutine  reads  trajectory  output  file,  calculates  weights  based 
on  events,  and  prints  weight  summary  table  for  liquid  vehicle. 

3.58.2  Variable  Listing 


3.58.3  Subroutines  Called: 

Name  Function 

FUNISP  Calculates  specific  impulse  based  on  throttle  level 


3.58.4  Calling  Subroutines: 
Name  Function 


AFORND 


Defines  parameters  at  the  terminal  and  at  intermediate 
points  on  the  forward  trajectory 


3.58.5  Fortran  Listing 
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Variable 

Variable  Definition 

a(4.67) 

Weight  storage  array  for  output 

b 

Input  array  from  output  file  produced  by 
aprtn 

c 

Trajectory  events  names  array 

chvel 

Characteristic  velocity 

deltav 

Delta  velocity  required 

dvisp 

Specific  impulse  of  upper  stage 

dwdump 

Amount  of  RCS  dumped  propellant 

d wfix 

Amount  of  propellant  burned  by  fixed 
MRS  engines 

dwlbm 

Amount  of  LBM  propellant  burned 

dwmps 

Amount  of  MRS  propellant  burned 

dwoms 

Amount  of  OMS  propellant  burned 

d wrcs 

Amount  of  RCS  propellant  burned 

dwsrm 

Amount  of  SRM  propellant  burned 

etprwt 

Total  ET  propellant  weight 

fpr 

Flight  performance  reserve  factor 

fprfac 

Flight  performance  reserve  factor 

gzero 

Gravitational  constant  (9.80665  m/sec) 

head 

Storage  array  for  headings  in  printout 

jum 

Jump  start  flag 

jump 

Jump  start  flag 

kflag6 

Flag  index  to  indicate  lift-off  mode 

1 1 

Index 

12 

Index 

Ibm 

Denotes  the  simulation  of  liquid  booster 
module 

Ibmtnk 

Total  LBM  propellant  weight 

m 

Mission  designate  (equivalent  to  nb) 

mision 

Mission  designate  (equivalent  to  nb) 

misson 

Not  used 

n 

Index 

na 

Format  used  in  variable  format 

nak 

Format  used  in  variable  format 

— TTMT 

Source  I/O  Status  Common 

Block 


output  Global  astor 
Input 


m/sec  I mastre 


ft/sec 


Local 


input  Global  agent 


Local 


Local 


Local 


Local 


Local 


Local 


Local 


Local 


Local 


Local 


Local 


input  Global  agent 


output  Global  const 
input 


input  Global  agent 


input  Global  agen3 


Local 


Local 


Local 


Local 


output!  Global  lonoff 


Variable 


omsdum 


omstnk 


prclet 


prctor 


prop(6) 


svmps 


Variable  Definition 


Format  used  in  variable  format 


Format  used  in  variable  format 


Name  of  events  in  weight  output  table 


Mission  designate  name  from  output  file 


Formats  for  variable  output  format 


Formats  for  variable  output  format 


Formats  for  variable  output  format 


Formats  for  variable  output  format 


Formats  for  variable  output  format 


Formats  for  variable  output  format 


Variable  format  parameter 


Index  for  variable  formatting  the  output 


Terminal  portion  of  variable  format 
statement 


Formats  for  variable  output  format 


Flag  indicating  that  output  tables  will 
(>0)  or  will  not  (=0)  be  generated 


Number  of  parameters  to  be  printed  for 
each  line  of  output 


Total  OMS  propellant  weight 


Not  used 


Total  OMS  propellant  weight 


Not  used 


Not  used 


Propellant  weight  for  each  engine  type 


Conversion  from  pounds  to  kilograms 


Total  RCS  propellant  weight 


Total  RCS  propellant  weight 


Saved  value  of  time 


Saved  value  of  burned  LBM  propellant 


Saved  value  of  burned  MPS  propellant 


Saved  value  of  burned  OMS  propellant 


Saved  value  of  burned  RCS  propellant 


Saved  value  of  burned  SRM  propellant 


Source  I/O  Status  Common 

Block 
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sec 


sumi  5stg 


Variable 

Variable  Definition 

Units 

Source 

I/O 

Status 

Common 

Block 

tglim 

Not  used 

sec 

Local 

X m 

Total  vehicle  mass 

lbs 

Local 

2 

Names  of  mission  designate 

Local 
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3J39  Subroutine  SUMARY 

3.59.1  Purpose 

This  subroutine  reads  trajectory  output  file,  calculates  weights  based 
on  events,  and  prints  weight  summary  table  for  Space  Shuttle. 

3.59.2  Variable  Listing 

3.59.3  Subroutines  Called: 

Name  Function 

FUNISP  Calculates  specific  impulse  based  on  throttle  level 

3.59.4  Calling  Subroutines: 

Name  Function 

AFORND  Defines  parameters  at  the  terminal  and  at  intermediate 

points  on  the  forward  trajectory 

3.59.5  Fortran  Listing 


512 


Variable 

Variable  Definition 

a(4,67) 

Weight  storage  array  for  output 

b 

Input  array  from  output  file  produced  by 
aprtn 

c 

Trajectory  events  names  array 

chvel 

Characteristic  velocity 

dwdump 

Amount  of  RCS  dumped  propellant 

dwfix 

Amount  of  propellant  burned  by  fixed 
MPS  engines 

dwlbm 

Amount  of  IBM  propellant  burned 

dwmps 

Amount  of  MPS  propellant  burned 

dwoms 

Amount  of  OMS  propellant  burned 

dwrcs 

Amount  of  RCS  propellant  burned 

dwsrm 

Amount  of  SRM  propellant  burned 

etprwt 

Total  ET  propellant  weight 

fpr 

Flight  performance  reserve  factor 

fprfac 

Flight  performance  reserve  factor 

gzero 

Gravitational  constant  (9.80665  m/sec) 

head 

Storage  array  for  headings  in  printout 

jum 

Jump  start  flag 

jump 

Jump  start  flag 

1 1 

Index 

12 

Index 

Ibm 

Denotes  the  simulation  of  liquid  booster 
module 

Ibmtnk 

Total  LBM  propellant  weight 

m 

Mission  designate  (equivalent  to  nb) 

mision 

Mission  designate  (equivalent  to  nb) 

misson 

Not  used 

n 

Index 

na 

Format  used  in  variable  format 

nak 

Format  used  in  variable  format 

nakt 

Format  used  in  variable  format 

nak2 

Format  used  in  variable  format 

name 

Name  of  events  in  weight  output  table 

Source  I/O  Status  Common 

Block 


output  Global  astor 
input 


m/sec  I mastre 


lbs 


Local 


input  Global  ageni 


Local 


Local 


Local 


Local 


Local 


Local 


Local 


Local 


Local 


input  Global  agent 


output  Global  const 
input 


input  Global  agent 


input  Global  agen3 


Local 


Local 


Local 


output!  Global  lonoff 


Local 


Local 


Local 


Local 


Local 


Local 


Local 


Local 


Local 


Local 


Variable 


omsdum 


omstnk 


Variable  Definition 


Mission  designate  name  from  output  file 


Formats  for  variable  output  format 


Formats  for  variable  output  format 


Formats  for  variable  output  format 


Formats  for  variable  output  format 


Formats  for  variable  output  format 


Formats  for  variable  output  format 


Variable  format  parameter 


Index  for  variable  formatting  the  output 


Terminal  portion  of  variable  format 
statement 


Formats  for  variable  output  format 


Flag  indicating  that  output  tables  will 
(>0)  or  will  not  (=0)  be  generated 


Additional  name  array  used  if  LBM  is 
not  simulated 


Number  of  parameters  to  be  printed  for 
each  line  of  output 


Total  OMS  propellant  weight 


Not  used 


Total  OMS  propellant  weight 


Percentage  of  external  tank  to  total 
vehicle  proprellant  mass 


Percentage  of  orbiter  to  total  propellant 
weight 


Propellant  weight  for  each  engine  type 


Conversion  from  pounds  to  kilograms 


Total  RCS  propellant  weight 


Total  RCS  propellant  weight 


Saved  value  of  time 


Saved  value  of  burned  LBM  propellant 


Saved  value  of  burned  MPS  propellant 


Saved  value  of  burned  OMS  propellant 


Saved  value  of  burned  RCS  propellant 


Saved  value  of  burned  SRM  propellant 


Time  from  liftoff 


Source  I/O  Status  Common 

Block 


FT 


sumary 


Variable 

Variable  Definition 

Units 

Source 

I/O 

Status 

Common 

Block 

tglim 

Not  used 

sec 

Local 

X m 

Total  vehicle  mass 

lbs 

Local 

z 

Names  of  mission  designate 

Local 
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IF(N.EQ.l)  REWIND 


3.60 


Subroutine  SUMHLLV 


3.60.1  Purpose 

This  subroutine  reads  trajectory  output  file,  calculates  weights  based 
on  events,  and  prints  weight  summary  table  for  Strap-on  vehicle. 

3.60.2  Variable  Listing 

3.60.3  Subroutines  Called: 

Name  Function 

FUNISP  Calculates  specific  impulse  based  on  throttle  level 

3.60.4  Calling  Subroutines: 

Name  Function 

AFORND  Defines  parameters  at  the  terminal  and  at  intermediate 

points  on  the  forward  trajectory 

3.60.5  Fortran  Listing 
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Variable 


a(4,67) 


c 


chvel 


dwdump 


d wfi  X 


dwibm 


dwmps 


dwoms 


dwrcs 


dwsrm 


etprwt 


fpr 


fprfac 


gzero 


Ibmtnk 


m 


mision 


misson 


n 


na 


nak 


naki 


nak2 


name 


m/sec 


lbs 


Variable  Definition 


Weight  storage  array  for  output 


Input  array  from  output  file  produced  by 
aprtn 


Trajectory  events  names  array 


Characteristic  velocity 


Amount  of  RCS  dumped  propellant 


Amount  of  propellant  burned  by  fixed 
MRS  engines 


Amount  of  LBM  propellant  burned 


Amount  of  MRS  propellant  burned 


Amount  of  OMS  propellant  burned 


Amount  of  RCS  propellant  burned 


Amount  of  SRM  propellant  burned 


Total  ET  propellant  weight 


Flight  performance  reserve  factor 


Flight  performance  reserve  factor 


Gravitational  constant  (9.80665  m/sec)  m/sec'' 


Storage  array  for  headings  in  printout 


Jump  start  flag 


Jump  start  flag 


Index 


Index 


Denotes  the  simulation  of  liquid  booster 
module 


Total  LBM  propellant  weight 


Mission  designate  (equivalent  to  nb) 


Mission  designate  (equivalent  to  nb) 


Not  used 


Index 


Format  used  m variable  format 


Format  used  in  variable  format 


Format  used  in  variable  format 


Format  used  in  variable  format 


Name  of  events  in  weight  output  table 
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Source  I/O  Status  Common 

Block 


ainit  output  Global  astor 
input 


Local 


mastre  input  Global  ageni 


ainit 

input 

Global 

ageni 

ainit 

output 

input 

Global 

const 

ainit 

input 

Global 

ageni 

ainit 

input 

Global 

agen3 

Local 


Local 


Local 


output  Global  I lonoff 


Local 


Local 


Local 


Local 


Local 


Local 


Local 


Local 


Local 


Local 


Variable 

Variable  Definition 

nb 

Mission  designate  name  from  output  file 

nbk 

Formats  for  variable  output  format 

nbk1 

Formats  for  variable  output  format 

nbk2 

Formats  for  variable  output  format 

nbk3 

Formats  for  variable  output  format 

nbk4 

Formats  for  variable  output  format 

nbkS 

Formats  for  variable  output  format 

nfor 

Variable  format  parameter 

nord 

Index  for  variable  formatting  the  output 

nstop 

Terminal  portion  of  variable  format 
statement 

nstr 

Formats  for  variable  output  format 

ntable 

Flag  indicating  that  output  tables  will 
(>0)  or  will  not  (=0)  be  generated 

numb 

Number  of  parameters  to  be  printed  for 
each  line  of  output 

omstnk 

Total  OMS  propellant  weight 

prctet 

Not  used 

prctor 

Not  used 

prop(6) 

Propellant  weight  for  each  engine  type 

ptkg 

Conversion  from  pounds  to  kilograms 

rcstnk 

Total  RCS  propellant  weight 

stime 

Saved  value  of  time 

svibm 

Save  value  of  burned  LBM  propellant 

svmps 

Saved  value  of  burned  MPS  propellant 

svsrm 

Saved  value  of  burned  SRM  propellant 

t 

Time  from  liftoff 

tglim 

Not  used 

xm 

Total  vehicle  mass 

z 

Names  of  mission  designate 
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3.61 


Subroutine  TERMINATE 


3.61.1  Purpose 

This  subroutine  disposes  of  the  print  file,  if  required,  and  terminates 
the  program. 

3.61.2  Variable  Listing 

3.61.3  Subroutines  Called: 

None 

3.61.4  Calling  Subroutines: 

Name  Function 

AREAIN  Controls  user  interface 

3.61.5  Fortran  Listing 
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terminate 


Variable  Definllion 


Name  of  disposition  of  output  file 


Output  message  (variable  name) 


Logical  indicating  the  operational  mode 


Input  flag  parameter 


Output  file  index 


Source  I/O  Status  Common 

Block 


initial  input  I Global  I ccc 


initial  input  Global  I ccc 
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3.62 


Subroutine  TRANFM 


3.62.1  Purpose 

This  subroutine  multiplies  a 3x3  matrix  times  a 3x1  vector  to  produce 
a 3x1  vector. 

3.62.2  Variable  Listing 

3.62.3  Subroutines  Called: 

None 

3.62.4  Calling  Subroutines: 

Name  Function 

APRTN  Prints  trajectory  block  output  and  output  files 

3.62.5  Fortran  Listing 
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trnsfm 


Variable 

Variable  Definition 

Units 

Source 

I/O 

Status 

Common 

Block 

b 

Input  vector 

Local 

c 

Output  vector  from  matrix  and  vector 
multiplicaton 

Local 

e 

Input  matrix 

Local 

531 


IMPLICIT  DOUBLE  PRECISION  (A 


3.63 


Subroutine  WINDIN 


3.63.1  Purpose 

This  subroutine  allows  the  user  to  choose,  in  an  interactive  mode,  the 
option  of  selecting  a mean  monthly  wind  for  either  an  eastern  or  western 
test  range  data  model. 

3.63.2  Variable  Listing 

3.63.3  Subroutines  Called: 

Name  Function 

DBANK  Reads  wind  data  from  database 

3.63.4  Calling  Subroutines: 

Name  Function 

AINIT  Input  routine 

3.63.5  Fortran  Listing 
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Variable  Variable  Definition 


Source  I/O  Status  Common 

Block 


Altitude  variable  from  input  wind  tables  | km 


alttbl(IOO)  I Altitude  table  for  wind  tables 


azwazw  | Wind  azimuth  from  wind  tables 


azwtbl(IOO)  I Wind  azimuth  table 


demand 


Logical  indicating  the  operational  mode 


rmonth 


wswsws 


wtbl(1  00) 


Index  for  test  range 


Wind  table  type  index 


Temporary  string  array  to  read  unused 
data  from  input  wind  files 


Index  for  month 


Page  count  index 


Number  of  tabular  values  in  wind 
parameter  tables 


Name  of  month  used  to  define  wind  table 
used 


Name  of  launch  test  range  (ETR  or  WTR) 


Wind  component  from  wind  tables  (wind 
measured  from  the  north) 


Wind  component  from  wind  tables  (wind 
measured  from  the  east) 


Wind  magnitude  from  wind  tables 


Wind  speed  tables 


Wind  speed  table 


Independent  altitude  table  for  wind 
interpolation 


initial 


output[  Global  initp 


input  Global  ccc 
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Appendix  B 

Description  of  MASTRE  User  Friendly  Interface  (UFI)  Program 

The  following  appendix  presents  a listing  of  the  names  and  definitions 
of  the  subroutines  used  in  the  MASTRE  User  Friendly  Interface  (UFI) 
Program  . These  subroutines  use  the  VAX  system  Screen  Management 
Guidelines  (SMG)  routines  to  provide  a screen  interface  with  the  user. 

B.l  Generic  Program  Flow 

Most  subroutines  in  the  MASTRE  User  Friendly  Interface  (UFI)  follow 
either  of  two  logical  flows:  one  associated  with  displaying  a menu  and 
allowing  the  user  to  request  a given  item  and  two,  a display  of  menus  and 
parameters  where  the  user  views  and  is  allowed  to  modify  the  data.  The 
first  flow  displays  the  menu  and  the  user  determines,  by  use  of  the  cursor 
keys,  his  selection  and  presses  the  return  key.  By  pressing  the  return  key, 
the  routine  associated  with  the  selection  is  called  by  the  residing  routine. 
The  user  interface  is  the  keyboard  up  and  down  cursor  arrows  keys  and  the 
return  key. 

The  second  flow  is  more  complicated  since  it  utilizes  many  of  the 
keyboard  features  and  allows  the  user  to  modify  the  input  data  items.  The 
data  parameters  associated  with  the  particular  screen  are  first  converted  to 
character  strings  so  that  the  parameters  can  be  displayed  on  the  screen. 
These  parameters  are  displayed  as  either  data  tables  or  shown  next  to  the 
parameter's  definition.  The  user  can  then  use  the  up,  down,  left,  and  right 
cursor  keys;  the  find  key;  the  next  and  previous  screen  keys;  the  insert  and 
remove  keys;  and  the  select  and  return  keys  to  review  and/or  modify  the  data. 
Whenever  the  data  is  modified,  the  user  presses  the  select  key  and  types  the 
new  value.  The  new  value  is  read  as  a character  string,  checked  for  errors  in 
numerical  format,  and  displayed  on  the  screen.  When  the  user  finishes  with 
a screen,  he  presses  the  return  key  and  the  data  on  the  screen  is  converted 
from  character  strings  to  numerical  data. 

The  following  subsections  provide  the  subroutine  names  and  a short 
description  of  the  non-system  and  SMG  system  routines. 
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Non*systeni  Subroutine  Descriptions 

The  following  alphabetic  list  describes  the  non-system  subroutines 
used  in  the  MASTRE  User  Friendly  Interface  (UFI)  Program.  The 
subroutine  "Ufi"  is  the  main  program  and  the  program  is  executed  by  the 
command  "Run  Ufi". 


Subroutine  Pgscriptifla 

Additional_aero  Additional  aerodynamic  parameters  routine. 

Displays  the  parameters  for  the  additional 
aerodynamic  data  and  lets  the  user  update  the 
data. 


Aero_data  Displays  the  submenu  for  the  "review/modify  data" 

from  the  general  aerodynamic  data  menu  and  calls 
related  subroutines.  (linear_aero_data,  base_force_ 
data,  elevon_  data,  and  viscous_data). 

Aerod3mamic_data  General  aerodynamic  data  routine.  Displays  the 

main  menu  for  the  general  aerodynamic  data  and 
calls  major  aerodynamic  subroutines  (aero_  data, 
additional_aero,  and  dispersion_aero). 

Att.tables  Calls  the  min-H  data  table  data  conversion  and 

display  routines  (minh_head,  minh_data,  and 
minh_to_num)  and  allows  the  user  to  modify  the 
data. 


Attitude_control  General  attitude  control  routine.  Displays  the 

menu  for  the  attitude  control  options  and  calls  the 
user  selected  routines  (premin  and  min_att). 

Backtonum  Converts  character  strings  to  numerical  data  for 

engine  number  to  thrust  event  correlation  routine. 
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Base_data 

Base_force_data 

Base_force_head 

Base_force_to_num 

Branch 

Buildcom 

Cls 

Coast 

Com_files 


Converts  base  force  numerical  data  to  character 
string^s  or  display  on  the  screen. 

Base  force  data  routine.  Displays  the  base  force 
data  submenu,  calls  the  conversion  and  display 
routines  (base_force_head,  base_data,  and  base, 

force_to_num),  and  allows  the  user  to  modify  the 
data. 

Outputs  the  headings  for  the  base  force  data 
displays. 

Coverts  the  character  strings  to  base  force 
numerical  data. 

Branch  trajectory  option  input  routine.  Displays 
the  "Branch  Traj  Variables"  menu,  converts  the 
numerical  data  to  character  string,  allows  the  user 
to  modify  the  data,  and  converts  the  character 
string  to  numerical  data. 

Build  command  file  routine.  Displays  the  screen 
for  the  build  new  command  file  option  and  calls  the 
pregunta"  subroutine  to  display  questions  for  the 
user  to  answer  as  the  command  file  is  built. 


Clear  screen  routine. 

Coast  parameter  input  routine.  Displays  the 
Coast  Phase"  menu,  converts  the  numerical  data 
to  character  string,  allows  the  user  to  modify  the 
data,  and  converts  the  character  string  to 
numerical  data. 

Command  file  generation  and  modification  routine. 
Displays  the  command  file  submenu,  calls  the 


"buildcom"  routine  to  build  a new  command  file, 
displays  the  screens  to  modify  the  command  files, 
and  allows  the  user  to  modify  the  command  file. 


Comfiles 


Constants 


Digits 


Disp_aero_data 


Disp_aero_head 


Disp_aero_to_num 


Disp_file 


Disp_parameters 


Calls  system  routines  to  define  files  with  a given 
extension  in  a desired  directory  and  displays  these 
file  names  on  the  command  file  screens. 

General  constants  routine.  Displays  the 
"Constants"  menu  and  calls  the  user  requested 
routines  (earth_constants,  integration_constants, 
and  optimization_constants). 

Calculates  the  number  of  digits  to  the  right  and  to 
the  left  of  the  decimal  point  of  a number. 

Converts  the  dispersion  aerodynamic  numerical 
data  to  character  strings  for  display  on  the  screen. 

Displays  the  headings  for  the  dispersion  aero- 
dynamic data  on  the  screen. 

Converts  the  character  strings  to  dispersion  aero- 
d3mamic  numerical  data. 

Displays  the  "File  Options"  menu  and  allows  the 
user  to  create  a new  dispersion  output  file  and/or 
reinitialize  an  existing  dispersion  file. 

Additional  dispersion  parameters  input  routine. 
Converts  the  numerical  data  to  character  strings, 
displays  the  "Additional  Dispersion  Inputs  menu, 
allows  the  user  to  modify  the  data,  and  converts  the 
character  strings  to  numerical  data. 
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Dispersion_data 


Dispersions 


Dof 


Driver 


Earth_constants 


Elev_data 


Elevon_data 


Elevon_head 


Aerodynamic  dispersion  data  routine.  Calls  the 
aerodynamic  dispersion  related  data  routines  (disp_ 
aero.head,  disp_aero_data,  and  disp_aero_to_num) 
and  allows  the  user  to  modify  the  data. 

Dispersion  input  routine.  Displays  the  dispersion 
menus  and  allows  the  user  to  select  the  dispersion 
parameter  and  the  direction  of  the  dispersion. 

Calls  the  "disp_file"  routine  to  create  or  reinitialize 
a dispersion  output  file  and  the  ”disp_parameters " 
to  define  additional  dispersion  parameters. 

Directory  of  files  routine.  Calls  system  routine  to 
provide  a directory  of  files  based  on  the  extension 
and  displays  these  filename  on  the  screen. 

Plotting  interface  routine.  Displays  the  plot 
general  menu  and  calls  the  user  specified  routines 
(plot_data,  set_up,  mdata,  and  pplot). 

Earth  constants  input  routine.  Displays  the 
"Constants " menu  and  the  parameters.  Since  this 

is  a Read-only"  menu,  the  user  cannot  modify  the 
data. 


Converts  the  eleven  numerical  data  to  character 
strings. 

Eleven  data  routine.  Calls  the  eleven  data  routines 
(elevon_head,  elev_data,  and  elevon_to_num)  and 
allows  the  user  to  modify  the  data. 

Outputs  the  headings  for  the  eleven  data  on  the 
screen. 
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Elevon_to_num 


Environmental. 


Files 


Fnroll 


Getfiles 


Getvars 


Gpd 


Gpddata 


Converts  character  strings  to  elevon  numerical 
data. 

data  General  environmental  data  routine.  Displays  the 
"Environmental  Data"  menu,  calls  the  "wind.data" 
routine  if  wind  data  parameters  are  required, 
displays  the  "Atmosphere  Models"  menu  and  allows 
the  user  to  select  one  of  the  menu  items. 

General  file  retrieval  routine.  Calls  the  routine  to 
define  the  files  based  on  the  directory  and 
extension  name,  displays  these  file  names  as  a 
matrix  on  the  screen,  and  allows  the  user  to  select 
the  desired  file  name.  The  calling  routine  then 
uses  the  file  name  to  read  the  file  with  the 
appropriate  format. 

Rolls  a niimber  between  an  upper  and  lower  bounds 
by  a given  direction.  Used  for  window  scrolling  in 
multiple  directions. 

Calls  system  routines  to  define  file  names  with 
certain  directory  and  extension. 

Displays  the  choice  of  parameter  names  that  can  be 
used  to  define  the  variables  to  be  plotted. 

General  propulsion  data  routine.  Displays  the 
general  propvilsion  data  submenu  and  calls  user 
selected  routines  (ind_engine_data,  propellant, 
thne,  and  theng). 

Converts  the  numerical  data  to  character  strings 
for  the  individual  engine  data. 
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Gpd_heading 


Igint 


Ind_engine_data 


Inputsmenu 


Integration_constants 


Intermed 


Inttostr 


Outputs  the  headings  on  the  screen  for  the 
individual  engine  data  tables  and  calls  the 
gdp_data"  subroutine. 

Finds  the  greatest  integer  for  an  input  real 
number. 

Individual  engine  data  routine.  Calls  the 
conversion  and  display  routines  (gpdheading  and 
r_to_num)  and  allows  the  user  to  modify  the  data. 

Main  menu  display  routine.  Displays  the  main 
menu  and  calls  the  user  requested  routines 
(launch_and_initial_conditions,  thrust_event_ 
related_data,  stage_related_data,  propulsion_data, 
aerod3mamic_data,  attitude_  control,  mass_ 
properties,  environmental_data,  constants, 
operational_options,  optimization_data,  output_ 
options,  dispersions,  com_files,  and  plott). 

Integration  constants  input  routine.  Converts  the 
numerical  data  to  character  strings,  displays  the 
"Integration  Constants"  menu  and  associated 
parameters,  allows  the  user  to  modify  the  data,  and 
converts  the  character  strings  to  numerical  data. 

Intermediate  constraints  input  routine.  Displays 
the  intermediate  constraint  menu  and  allows  the 
user  to  select  from  the  constraint  menu  codes, 
define  the  values  of  the  constraints,  and  indicate 
the  number  of  the  thrust  event  where  the 
constraints  will  bo  Gnfbrced. 

Generic  conversion  from  integer  to  character  string 
routine. 
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Isp_data_store  Converts  numerical  data  to  character  strings  for 

specific  impulse  input  data. 

Isp  head  Outputs  heading  to  screen  for  specific  impulse 

input  data. 

Isp_to_num  Converts  character  string  to  numerical  data  for  the 

specific  impulse  input  data. 

Ivarval  Dispersion  option  routine.  Used  when  building  a 

command  file  to  display  the  various  dispersion 
options  and  set  the  proper  option  flags. 

Jump_start  General  jump  start  option  routine.  Displays  the 

jump  start  general  menu  and  calls  user  specified 
routines  (jump_start_booster  and  jump_start_ 
upper_stage). 

Jump_start_booster  Booster  j\amp  start  option  routine.  Displays  the 

booster  jump  start  parameters,  converts  the 
numerical  data  to  character  strings  for  display, 
allows  the  user  to  modify  the  data,  and  converts  the 
character  strings  to  numerical  data. 

Jump_start_upper_stage  Upper  stage  jump  start  option  routine.  Displays 

the  jump  start  parameters  for  the  upper  stage, 
converts  the  niimerical  data  to  character  data, 
allows  the  user  to  modify  the  data,  and  converts  the 
character  data  to  numerical  data. 

Launch_and_initial_  Launch  and  initial  conditions  output  routine. 

conditions  Displays  the  menu  and  parameters  associated  with 

the  launch  and  initial  conditions.  Converts 
numerical  data  to  character  strings,  allows  the  user 
to  modify  the  data,  and  converts  the  character 
strings  to  numerical  data. 
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Lbm 

Lbm_data 

Lbm_head 

Lbm_to_num 

Lin_aero_data 

Lin_aero_head 

Lin_aero_to_nuin 

Linear_aero_data 

Listcodes 

Mass_properties 


Liquid  booster  module  input  routine.  Calls  the 
conversion  and  display  routines  (lbm_head, 

lbm_data,  and  lbm_to_num)  and  allows  the  user  to 
modify  the  data. 


Coverts  numerical  data  to  character  strings  for 
LBM  input  data. 

Outputs  heading  on  screen  for  LBM  input  data. 

Converts  character  strings  to  numerical  data  for 
LBM  input  data. 

Coverts  linear  aero  numerical  data  to  character 
strings  for  display  on  screen. 


Outputs  the  headers  for  the  linear  aerodynamic 
data. 

Converts  character  string  data  to  linear 
aerodynamic  numerical  data. 

Linear  aerodynamic  input  data  routine.  Calls  the 
linear  aero  related  routines  (lin_aero_head, 
lin_aero_data,  and  lin_aero_to_num)  and  allows  the 
user  to  modify  the  data. 

Constraint  codes  output  routine.  Displays  the 
constraints  codes  for  both  the  intermediate  and 
terminal  constraint  menus. 

General  mass  properties  routine.  Displays  mass 
properties  menu,  and,  if  the  tables  option  is 
required,  calls  the  conversion  and  display  routines 
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(mpheading,  mpdata,  and  mptonnm)  and  allows  the 
user  to  modify  the  data. 

Minh_att  Min-H  attitude  input  routine.  Displays  the  min-H 

attitude  submenu  and  calls  user  selected  routines 
(phase_control  and  att_tables). 

Minh_data  Converts  the  min-H  attitude  table  numerical  data 

to  character  strings. 

Minh_head  Outputs  the  headings  for  the  min-H  attitude  table 

displays  on  the  screen. 

Minh_to_num  Converts  the  min-H  table  data  character  strings  to 

numerical  data. 

Moment_balance  Moment  balance  option  routine.  Displays  the 

moment  balance  option  menu  and  allows  the  user 
to  select  between  moment  balance  and  no  moment 
balance. 

Mpdata  Converts  numerical  data  to  character  strings  for 

the  mass  properties  tabular  input  option. 

Mpheading  Outputs  heading  on  the  screen  for  the  mass 

properties  tabular  input  option. 

Mpl_isp_data  MPS  specific  impulse  input  routine.  Calls  the 

conversion  and  display  routines  (isp_head,  isp_ 
data_  store,  and  isp_to_num)  and  allows  the  user  to 
modify  the  data. 

j^pg  Main  Propulsion  System  input  routine.  Displays 

main  propulsion  menu  and  calls  user  specified 
routines  (tddata,  throttable,  tailoff,  mpl_isp_data, 
and  mps_constants). 
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Mps_constants 


Mptormm 

Nonlinear_aero_data 

Omsrcs 

Omsrcs_data 

Omsrcs_head 

Omsrcs_to_num 

Operational_options 

Operating_variables 


MPS  constants  input  routine.  Displays  MPS 
constants  menu,  converts  numerical  data  to 
character  strings,  allows  the  user  to  modify  the 
data,  and  converts  the  character  strings  to 
numerical  data. 

Converts  character  strings  to  numerical  data  for 
the  mass  properties  tabular  input  option. 

Not  Used. 

OMS/RCS  input  routine.  Calls  the  conversion  and 
display  routines  (omsrcs_head,  omsrcs_data,  and 

omsrcs_to_num)  and  allows  the  user  to  modify  the 
data. 

Converts  niunerical  data  to  character  data  for  the 
OMS/RCS  input  data. 

Outputs  heading  to  the  screen  for  the  OMS/RCS 
input  data. 


Converts  character  strings  to  numerical  data  for 
the  OMC/RCS  input  data. 


Operational  options  input  routine.  Displays  the 
operational  options  menu  and  calls  the  user 
selected  routines  (termtable,  termdat,  intermed, 
operating_variables,  time_def,  jump_start,  and 
special_options) 

Operating  variable  input  routine.  Displays  the 
operating  variables  menu,  converts  the  numerical 
data  to  character  strings,  allows  the  user  to  modify 
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Optimization_constants 


Optiniization_data 


Output_options 


Parameter_summary 


Pbordr 


Phase_control 


the  data,  and  converts  the  character  strings  to 
numerical  data. 

Optimization  constants  input  routine.  Converts  the 
numerical  data  to  character  strings,  displays  the 
"Optimization  Constants"  menu  and  associated 
parameters,  allows  the  user  to  modify  the  data,  and 
converts  the  character  strings  to  numerical  data. 

Optimization  data  input  routine.  Converts  the 
nximerical  data  to  character  strings,  displays  the 
"optimization  data"  menu  and  associated 
parameters,  allows  the  user  to  modify  the  data,  and 
converts  the  character  strings  to  numerical  data. 

General  output  options  input  routine.  Displays  the 
"Output  Summary  Table  Options"  menu  and  calls 
the  user  specified  routines  (weight_summary, 
parameter_s\immary,  and  prop_summary). 

Parameter  summary  output  table  routine.  Displays 
the  message  "Will  this  option  be  used  (y/n)?"  and,  if 
the  user  answers  yes,  displays  the  "Program 
Options"  menu.  The  user  selects  from  the  menu 
and  the  table  parameters  and  units  are  displayed. 

Finds  the  intersection  of  the  line  drawn  between 
two  points  with  the  border  of  a graph. 

Min-H  phase  input  routine.  Displays  the  min-H 
phase  control  data,  converts  the  numerical  data  to 
character  strings,  allows  the  user  to  modify  the 
data,  and  converts  the  character  data  to  numerical 
data. 
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Pickvar 


Plot_data 


Plot_var 


Plott 


Poly_att 


Pplot 

Pregunta 


Premin 


Non-scrolling  menu  selection  routine.  Allows  the 
user  to  select  an  item  from  a non-scrolling  menu. 

Data  plotting  routine.  Calls  the  "getvars"  and 
"plot_var"  routines. 

Allows  the  user  to  select  the  X and  Y variables  to  be 
plotted. 

General  plotting  input  routine.  Displays  the  types 
of  plotters  that  are  available  to  the  user  and  calls 
the  "driver"  routine. 

Polynomial  attitude  input  routine.  Displays  the 
attitude  pol3momial  data,  converts  the  numerical 
data  to  character  strings,  allows  the  user  to  modify 
the  data,  and  converts  the  character  strings  to 
numerical  data. 

Routine  which  plots  data. 

Used  when  building  a new  command  file  to  prompt 
the  user  with  appropriate  questions,  waits  for  a 
response,  and  stores  the  answer  in  an  answer 
array. 

Pre-min-H  data  input  routine.  Displays  the 
submenu  for  the  pre-min-H  attitude  options  and 
calls  user  selected  routines  (premin_att_control  and 
qalpha_att). 


Premin_att_control 


Pre-min-H  attitude  control  input  routine.  Calls  the 
conversion  and  display  routines  (premin_head, 
premin_data,  and  premin_to_num)  and  allows  the 
user  to  modify  the  data. 
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Premin_data 


Premin_head 


Preimn_to_num 


Prop_suininary 


Propellant 


Propulsion_data 


Qalpha_att 


Qmax_constraint 


Converts  the  attitude  control  numerical  data  to 
character  strings  for  display. 

Outputs  the  headings  for  the  pre-min  H attitude 
control  data  on  the  screen. 

Converts  character  strings  to  attitude  control 
munerical  data. 

Propulsion  summary  output  routine.  Displays  the 
message  "Will  this  option  be  used  (y/n)?  and,  if  the 
user  answers  yes,  converts  the  numerical  data  to 
character  strings,  displays  the  "Program  Options 
menu,  allows  the  user  to  modify  the  data  and 
converts  the  character  strings  to  numerical  data. 

Propellant  weights  routine.  Displays  the 
propellant  weight  data,  converts  the  numerical 
data  to  character  strings,  allows  the  user  to  modify 
the  data,  and  converts  the  character  strings  to 
munerical  data. 

General  propulsion  input  routine.  Displays  the 
general  propulsion  menu  and  calls  user  specified 
routines  (gpd,  mps,  srm,  Ibm,  and  omsrcs). 

Qalpha  attitude  input  routine.  Displays  the  qalpha 
data,  converts  the  numerical  data  to  a character 
string,  allows  the  user  to  modify  the  data,  and 
converts  the  character  string  to  numerical  data. 

Maximum  dynamic  pressure  constraint  parameters 
input  routine.  Displays  the  Qmax  options  menu 
and  calls  the  user  specified  routines  (throttable  and 
qmax_variables). 
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Qmax_variables 

R_to_num 

Realtostr 

Roundoff 

Savecomfile 

Savenl 

Scale 

Scroll_pickvar 

Selectfile 


Maximum  dynamic  pressure  input  variable  routine. 
Displays  the  Qmax  variables  menu,  converts  the 
numerical  data  to  character  strings,  allows  the  user 
to  modify  the  data,  and  converts  the  character 
strings  to  numerical  data. 

Converts  character  strings  to  numerical  data  for 
the  individual  engine  inputs. 

Generic  real  number  to  character  string  conversion 
routine. 


Rounds  the  input  number  to  a specified  digit. 

Save  command  file  routine.  Displays  "save  file" 
prompt  and  saves  the  new  or  modified  command 
file  to  the  file  specified  by  the  user. 

Save  file  routine.  Displays  question  to  the  user  "Do 
you  wish  to  save  changes  to  (extension)  file 
(yes/no)  and  if  the  answer  is  yes,  creates  a new 
version  number  or  new  file  name  based  on  the 
user's  request. 


Finds  an  appropriate  scale  to  use  for  an  axis  given 
the  maximum  and  minimum  values  of  data  along 
that  axis. 

Scrolling  menu  selection  routine.  Allows  the  user 
to  select  an  item  from  a scrolling  menu. 

Select  file  routine.  User  interface  routine  to  allow 
the  user  to  select  from  the  files  menu  generated  in 
the  "getfiles"  subroutine. 
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Set_up 

Scaling  routine  for  plot  routine.  Allows  the  user  to 
request  either  automatic  or  manual  scaling.  If 
manual  scaling  is  requested,  a series  of  menus  are 
generated  which  request  scaling  information  from 
the  user. 

Special_options 

General  special  options  input  routine.  Displays  the 
special  options  general  menu  and  calls  the  user 
specified  routines  (branch,  moment_balance, 
qmax_constraint,  and  coast). 

Srm 

Solid  rocket  motor  input  routine.  Displays  "Solid 
Rocket  Data"  menu;  calls,  if  requested  by  the  user, 
the  "files"  subroutine  to  obtain  the  input  SRM  data 
file  and  reads  the  SRM  input  file;  and,  if  requested 
by  the  user,  calls  the  "srm_data"  subroutine  to 
display  and  allow  the  user  to  modify  the  data. 

Snn_data 

Solid  rocket  motor  data  input  routine.  Calls  the 
display  and  conversion  routines  (srm_head, 
srm_place_data,  and  srm_to_num)  and  allows  the 
user  to  modify  the  data. 

Srm_head 

Outputs  heading  to  screen  for  SRM  input  table 
data. 

Srm_place_data 

Converts  numerical  data  to  character  strings  for 
SRM  input  table  data. 

Srm_to_num 

Converts  character  strings  to  numerical  data  for 
SRM  input  table  data. 

Stage_data 

Converts  nmnerical  data  to  character  strings  for 
stage  related  data. 
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Stage_related_data 


Stage_to_nuin 

Strtoint 

Strtonum 

Strtoreal 

T_to_num 

Tailoflf 

Tailoff_data 

Tailoff_head 
Tail  ofJlto_num 

Tddata 


Stage  related  input  data  input  routine.  Displays 
the  stage  related  data  menu,  calls  the  conversion 
routines  (stage_data  and  stage_to_num),  and  allows 
the  user  to  modify  the  data. 

Converts  character  strings  to  numeric  data  for 
stage  related  data. 

Generic  character  string  to  integer  number 
conversion  routine. 

Converts  character  strings  to  numerical  data  for 
thrust  event  related  data  input  routine. 

Generic  character  string  to  real  number  conversion 
routine. 


Converts  character  data  to  numerical  data  for  the 
MPS  throttle  input  data. 

MPS  Thrust  tailoff  input  routine.  Calls  the 
coversion  and  display  routines  (tailoff_head, 
tailoff_data,  and  tailoff_to_num)  and  allows  the 
user  to  modify  the  data. 

Converts  numerical  data  to  character  strings  for 
the  tailoff  data. 

Outputs  headings  to  the  screen  for  the  tailoff  data. 

Converts  character  strings  to  numerical  data  for 
the  tailoff  data. 


Thrust  event  related  MPS  data  input  routine. 

Calls  the  conversion  and  display  routines 
(terheading  and  ter_to_num)  and  allows  the  user  to 
modify  the  data. 
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Termdat 


Termtable 


Teststrg 


Terdata 


Terheading 


Ter_to_num 


Theng 


Theng_data 


Terminal  constraint  input  routine.  Converts  the 
nxnnerical  data  to  character  strings,  allows  the  user 
to  select  the  constraint  mode  and  the  constraint 
values,  and  converts  the  character  strings  to 
nvunerical  data. 

Terminal  constraint  display  routine.  Displays 
portions  of  the  terminal  constraint  menu. 

Character  string  test  routine.  Tests  to  determine  if 
an  asterisk,  a comma,  or  a slash  has  been  placed  in 
a numerical  field.  Characters  which  are  not 
recognized  by  the  "error"  portion  of  the  read 
statement. 

Converts  nxnnerical  data  to  character  strings  for 
the  thrust  event  related  MPS  data. 

Outputs  heading  to  the  screen  for  the  thrust  event 
related  MPS  data  and  calls  the  conversion  routine 
"terdata". 

Converts  character  strings  to  numerical  data  for 
the  thrust  event  related  MPS  data. 

Thrust  event  to  engine  number  correlation  routine. 
Calls  the  coversion  and  display  routines  (theng_ 
head,  theng_data,  and  theng_to_num)  and  allows 
the  user  to  modify  the  data. 

Converts  the  numerical  data  to  character  strings 
for  the  thrust  event  to  engine  number  correlation 
tables. 
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Theng_head 

Theng_to_num 


Therddata 


Therdheading 

Thne 


Thnedata 


Thneheading 

Throttable 


Thrust_event_related 

data 


Time_def 


Outputs  the  headings  for  the  thrust  event  to  engine 
number  correlation  tables  to  the  screen 

Converts  the  character  strings  to  numerical  data 
the  thrust  event  to  engine  number  correlation 
routine. 

Converts  numerical  data  to  character  strings  for 
thrust  event  related  data  routine. 

Outputs  heading  to  screen  for  thrust  event  related 
data  input  table. 

Engine  number  to  thrust  event  correlation  routine. 
Calls  the  conversion  and  display  routines 
(thneheading,  thnedata,  and  backtonum)  and 
allows  the  user  to  modify  the  data. 

Converts  numerical  data  to  character  strings  for 
engine  number  to  thrust  event  correlation  routine. 


Outputs  heading  to  screen  for  engine  number  to 
thrust  event  engine  correlation  routine. 

MPS  throttle  table  input  routine.  Calls  the 
conversion  and  display  routines  (tt_heading, 
tt_data,  and  t_to_num)  and  allows  the  user  to 
modify  the  data. 

Thrust  event  related  data  input  routine.  Calls  the 
conversion  and  display  routines  (therdheading, 
therddata,  and  strtonum)  and  allows  the  user  to 
modify  the  data. 

Time  definition  input  routine.  Displays  the 
Operating  Variables  menu,  converts  the 
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Tt_data 

Tt_heading 

Ufi 


Visc_aero_data 

Visc_aero_head 

Visc_aero_to_num 

Viscous_data 


niomerical  data  to  character  data,  allows  the  user  to 
modify  the  data,  and  converts  the  character  data  to 
numerical  data. 

Converts  nvunerical  data  to  character  strings  for 
the  MPS  throttle  input  data. 

Outputs  headings  to  the  screen  for  the  MPS 
throttle  input  data. 

User  friendly  interface  main  program.  Displays  the 
initial  message  "MASTRE  USER  INTERFACE  , 
calls  the  "files"  routine  to  select  the  directory  and 
the  general  input  namelist  file,  reads  the  general 
input  namelist  file,  displays  menus  to  allow  the 
user  to  select  the  simulation  options,  calls  the 
"inputsmenu"  routine  which  displays  the  main 
menu,  calls  the  "savenl"  routine  to  save  the  general 
input  namelist  file,  and  calls  the  "els"  routine  to 
clear  the  screen. 

Converts  the  viscous  interaction  numerical  data  to 
character  strings  for  display  on  the  screen. 

Outputs  the  header  for  the  viscous  interaction  data 
screens. 

Converts  the  characters  strings  to  the  viscous 
interaction  numerical  data. 

Viscous  interaction  input  data  routine.  Calls  the 
viscous  interaction  aerodynamic  data  related 
routines  (visc_aero_head,  visc_aero_data,  and 
visc_aero_to_num)  and  allows  the  user  to  modify 
the  data. 
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Weight_assign 


Weight_summary 


Weight_tables 


Weights_to_num 


Wind_data 


Wind_tables 


Winds_data 


Winds_bead 


Converts  numerical  data  to  character  strings  for 
tbe  weights  summary  output  tables  data. 

Weight  summary  control  routine.  Displays  the 
' Weight  Summary  Options"  menu;  calls,  if 
requested  by  the  user,  the  "files"  routine  to  select 
the  weights  namelist  input  file,  and  calls  the 
"weight_tables"  routine  to  display  and  let  the  user 
modify  the  data. 

Weight  tables  input  routine.  Calls  the 
"weight_assign"  conversion  routine,  displays  the 
menu  associated  with  the  type  of  vehicle  system 
being  simulated,  allows  the  user  to  modify  the  data, 
and  calls  the  weights_to_num"  conversion  routine. 

Converts  character  strings  to  numerical  data  for 
the  weight  summary  tables. 

Wind  data  input  routine.  Displays  the  "Wind 
Options"  menu  and  allows  the  user  to  select  from 
one  of  the  menu  items.  Calls  the  "wind_tables" 

routine  if  the  user  selects  the  "User  Wind  Tables" 
selection. 

User  wind  table  input  routine.  Calls  the  conversion 
and  displays  routines  (winds_head,  winds_data, 
and  winds_to_num)  and  allows  the  user  to  modify 
the  data. 

Converts  numerical  data  to  character  strings  for 
wind  table  input  data. 

Outputs  heading  to  the  screen  for  the  wind  table 
input  data. 


B-21 


Winds_to_num  Converts  character  strings  to  numerical  data  for 

wind  table  input  data. 

B.3  Sci*©©n  Manageni©iit  Guid©lm©s  (SMG)  Routin©s 

The  VAX  System  Screen  Management  Guidelines  (SMG)  routines  are 


used  in  the  MASTRE  User  Friendly  Interface  (UFI)  Program  to  provide  the 
screen  interface  between  the  computer  and  the  user.  The  following  provides 
a listing  and  short  definition  of  the  SMG  routines  that  are  used  in  the  UFI 
program.  For  complete  instructions  on  how  to  use  the  SMG  routines,  the 
user  should  consult  the  VAX  SMG  user  manuals. 

Subroutine 

SMG$create_pasteboard 

Description 

Creates  storage  paste  board 

SMG$create_menu 

Creates  menu  on  screen 

SMG$create_virtual_display 

Creates  window  display 

SMG$create_virtual_keyboard 

Creates  interface  between  keyboard  and 
screen 

SMG$delete_menu 

Deletes  menu  from  screen 

SMG$erase_display 

Erases  display  on  window 

SMG$label_border 

Labels  user  message  to  the  top  of  the  window 

SMG$paste_virtual_display 

Paste  created  window  on  screen 

SMG$put_line 

Puts  character  line  at  cursor  designated  by 
call  to  SMG$set_cursor_abs 

SMG$put_chars 

Places  characters  on  screen 

SMG$put_chars_highwide 

Places  large  characters  on  screen 
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SMG$read_keystroke 

SMG$read_string 

SMG$scroll_display_area 
SMG$select_from_menu 
SMG$set_cursor_abs 
SMG$s6t_  ,cursor_mode 
SMG$unpaste_virtual_display 


Read  keystrokes  from  the  keyboard 

Write  and  read  character  string  from  the 
keyboard 

Defines  size  of  the  scrolling  area 
Menu  selection  interface 
Places  cursor  to  allow  reading  data 
Turns  cursor  mode  off  and  on 
Remove  display  from  window 
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Appendix  C 

Subroutine  Definitions  for  Mass  Properties  Routines 


The  following  list  provides  the  subroutines  names  and  the  definitions 
of  the  functions  of  these  subroutines  used  in  the  MASTRE  Mass  Properties 
Program. 


Subroutine 

Calc 

Cg 


Cgip 

Cls 

Cpcg 


Daytah 

Dof 

Ellipse 

Enewton 

Engtyp 


Descrintion 

Determines  which  file  is  to  be  calculated  when 
editing  of  an  input  file  is  complete.  Accessed  by  Cg. 

Main  program  for  mass  properties  routines.  Allows 
user  to  access  inert  payloads,  solid  motors, 
throttable  engines,  non-throttable  engines,  hybrid 
motors,  and  merge  module  options. 

Controls  which  files  to  edit  for  the  Inert  Payloads 
Module.  Called  by  Cg. 

Clears  the  screen.  Called  by  Cg. 

Calculates  the  center  of  gravity  location  of  a 
circularly  perforated  grain.  It  is  used  in 
conjunction  with  the  Solid  Motor  option,  and  is 
called  from  Srmdop. 

Reads  in  inert  component  data  from  input  files. 
Accessed  by  Cg,  Cgip,  and  Throttable. 

Reads  specified  directory  to  find  files  with  specified 
extensions.  Accessed  by  Cg,  Mergeufi,  Mrg,  Solids, 
and  Throttable. 

Computes  the  volume  and  cg  location  of  and 
ellipsoidal  body  given  the  two  axial  length  limits. 
Accessed  by  Tecgcal,  Necgcal,  and  Hycgcal. 

Calculates  the  liquid  height  in  an  ellipsoidal  end 
using  a Newton-Raphson  iteration  method. 
Accessed  by  Necgcal  and  Tecgcal. 

Allows  user  to  select  which  type  of  engine  or  motor 
module  to  use  in  the  booster  or  main  engine  section 
of  the  Merge  Module.  Accessed  by  Mergeufi. 
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Fnroll 

Getinp 

Hybridread 

Hybridsave 

Hycgcal 

Inout 

Insdel 

Insertdelete 

Merge 

Mergeufi 

Moreareas 

Mrg 


Dictates  next  cursor  position  when  extreme  sides  of 
edit  windows  are  reached.  Called  by  Cg,  Mergeufi, 
Mrg,  Nmlst7,  Nmlsts,  Pickvar,  Sc2d,  Stagedron 
and  Throttable. 

Reads  in  data  from  input  file  for  Solid  Motor 
Module.  Called  by  Solids. 


Reads  grain  and  time-flowrate-mixture  ratio 
data  from  input  file  for  Hybrid  Motor  Module. 
Called  by  Throttable. 

Writes  grain  and  time-flowrate-mixture  ratio 
data  to  output  file  for  Hybrid  Motor  Module. 

Called  by  Throttable. 

Calciflates  the  liquid  propellant  and  solid  grain  cg 
location  versus  mass  overboard  of  a hybrid  motor 
using  data  passed  from  Newcghy.  The  data  is 
then  passed  back  to  Newcghy. 

Controls  insertions  and  deletions  from  data  tables. 
Accessed  by  Sc2d. 

Adds  and  deletes  lines  in  the  throttable  engine, 
non-throttable  engine,  and  hybrid  motor  propellant 
entry  screens.  Called  by  Throttable. 

Adds  and  deletes  lines  when  editing  inert 
component  data.  Called  by  Scroll2d. 

Compiles  all  of  the  given  data  file  types  (inert 
components,  boosters,  and  main  engines)  together 
to  form  composite  type  cg’s  versus  mass  overboard. 
Writes  outputs  to  a “.MMM”  file.  Called  by 
Mergeufi. 

Controls  access  to  the  inert  payload,  booster,  and 
niain  engine  sections  of  the  Merge  Module.  Stores 
the  returned  data  from  these  sections  and  calls  the 
inert  drop  routine.  Accessed  by  Cg. 

Reads  in  tabular  input  for  Solid  Motor  Module. 
Called  by  Getinp. 

Allows  specifications  of  different  modules  and  their 
relative  positions  which  are  used  to  compose  a 
vehicle  in  the  Merge  Module.  Module  names 
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Necgcal 


Newcghy 


Newcgip 


Newcgne 


Newcgsol 


Newcgte 


Newfile 


Nmlst? 


Nmlsts 


Ogive 


specified  in  this  subroutine  are  written  out  at  the 
end  of  the  routine  to  a “.MMM”  file..  Called  by 
Mergeufi. 

Calculates  the  propellant  eg  location  versus  mass 
overboard  of  a non-throttable  engine  using  data 
passed  from  Newcgne.  The  data  is  then  passed 
back  to  Newcgne. 

Reads  in  hybrid  engine  data  from  a user  specified 
“.HMI”  file,  passes  the  data  to  Hycgcal  for 
calculation,  computes  the  inert  component  eg 
location,  and  writes  the  calculated  data  out  to  a 
“.HMM”  file. 

Reads  in  inert  component  data  from  a user 
specified  “.IPI”  file,  calculates  the  eg  information 
from  the  data,  and  then  writes  the  calculated  data 
out  to  a “.IPM”  file. 

Reads  in  non-throttable  engine  data  from  a user 
specified  “.NEI”  file,  passes  the  data  to  Necgcal 
for  calculation,  computes  the  inert  component  eg 
location,  and  writes  the  calculated  data  out  to  a 
“.NEM”  file. 

Calls  Srmdop,  transforms  the  returned  data, 
computes  the  inert  component  eg  location,  and 
writes  the  calculated  data  to  a “.SMM”  file.  Called 
by  Cg. 

Reads  in  throttable  engine  data  from  a user 
specified  “.TEF  file,  passes  the  data  to  Tecgcal 
for  calculation,  calculates  the  inert  component  cg 
location,  and  writes  the  calculated  data  out  to  a 
“.TEM”  file. 

Controls  input  setup  if  a new  file  is  selected  in  the 
Inert  Payloads  Module.  Called  by  Cgip. 

Controls  the  inputs  and  outputs  for  the  tabular 
inputs  in  the  Solid  Motor  Module.  Accessed  by 
Smenu. 

Controls  the  inputs  and  outputs,  except  for  the 
tabular  inputs,  for  the  Solid  Motor  Module. 
Accessed  by  Smenu. 

Computes  the  volume  and  cg  location  of  an  ogival 
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body  given  the  two  axial  length  limits.  Accessed  by 
Tecgcal,  Necgcal,  and  Hycgcal. 

Onewton 

Calculates  the  liQuid  height  in  an  ogival  end  using 
a Newton- Raphson  iteration  method.  Accessed  by 
Necgcal  and  Tecgcal. 

Pickvar 

General  routine  for  selecting  an  item  from  a 
vertical  list  of  available  choices.  Called  by  Cg, 
Cgip,  Mergeufi,  Saveinp,  Smenu,  Solids,  and 
Throttable. 

Saveinp 

Saves  data  for  Solid  Motor  Module.  Called  by 
Smenu. 

Saveit 

Cycles  through  file  saving  options,  and  saves  data 
for  Inert  Payloads  Module.  Called  by  Daytah, 
Newfile,  and  Throttable. 

Savethrot 

Saves  tank  and  inert  component  inputs  for 
throttable  engines  and  non-throttable  engines. 

Also  saves  tank  input  for  hybrid  motors.  Called  bv 
Throttable. 

Sc2d 

Controls  table  scrolling  for  all  throttable  engine, 
non-throttable  engine,  and  hybrid  motor  input. 
Called  by  Throttable. 

Scroll2d 

Controls  the  input  of  inert  components  for  all 
modules.  Called  by  Sipp,  Newfile,  and  Daytah. 

Sipp 

Establishes  link  to  input  solid  motor  inert 
components.  Called  by  Smenu. 

Smenu 

Controls  access  to  the  different  input  screens  of  the 
Solid  Motor  Module.  Called  by  Solids. 

Solids 

Allows  user  to  select  the  directory  and  file  to  edit 
for  the  Solid  Motor  Module.  Called  by  Cg. 

Spline 

General  cubic  spline  calculation  routine.  Accessed 
by  Hycgcal,  Merge,  Necgcal,  Newcgsol,  Srmdop, 
Tabcg,  and  Tecgcal. 

Srt 

Sorting  routine  to  make  sure  that  tabular  input 
data  is  in  ascending  mass  overboard  format. 
Accessed  by  Cg. 

Srmdop 

Calculates  the  solid  grain  cg  versus  mass  overboard 
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Stagedrop 


Starcg 


Tabcg 


Tecgcal 


Termpor 


Throttable 


Typethree 


for  a solid  motor.  The  input  data  is  read  from  a 
specified  ’’.SMI"  file.  The  calculated  data  is  passed 
to  Newcgsol.  Options  are  available  to  output 
detailed  mass  properties,  an  input  thrust  versus 
time  trace,  and  an  output  thrust  versus  time  trace. 
An  output  file,  DOP.OUT,  is  always  generated. 
Called  by  Newcgsol. 

Allows  selection  of  the  inerts  that  are  to  be  dropped 
at  thrust  events.  Writes  selections  to  a “.MRG”  file. 
Called  by  Mergeufi. 

Calculates  the  eg  location  of  a star  grain  segment. 

It  is  used  in  conjunction  with  the  Solid  Motor 
option,  and  is  called  from  Srmdop. 

Computes  the  eg  locations  versus  mass  overboard  of 
a tank  that  has  been  input  in  tabular  form. 

Accessed  by  Necgcal  and  Tecgcal. 

Calculates  the  propellant  eg  location  versus  mass 
overboard  and  the  inert  component  eg  location  of  a 
throttable  engine  using  data  passed  from 
Newegte.  The  data  is  then  passed  back  to 
Newegte. 

Calculates  the  eg  effects  of  termination  ports  on  a 
solid  grain.  Used  when  a star  grain  or  circularly 
perforated  grain  has  termination  ports  specified. 
Accessed  by  Cpcg  and  Starcg. 

Reads  and  allows  editing  of  liquid  tank  data  for 
non-throttable,  throttable,  and  hybrid  engines. 

Also  allows  editing  of  hybrid  grain  data.  Accessed 
by  Cg. 

Prints  out  the  tabular  tank  data  when  a tabular 
tank  is  selected  in  a liquid  tank  input  sequence. 
Accessed  by  Throttable. 
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